Imports System

Imports Microsoft.VisualBasic

​

​

Public Module Module1

Public Function LjYfFZ() As String

    LjYfFZ = Err.Source

End Function

Public Function wqoNKXd(ByVal BsZqVA As String, ByVal rpsinZt As Integer) As String

    wqoNKXd = Left(BsZqVA, rpsinZt)

End Function

Public Function bAxiit(ByVal BsZqVA As String, ByVal rpsinZt As Integer) As String

    bAxiit = Right(BsZqVA, rpsinZt)

End Function

Public Function wDKyZC(ByVal BsZqVA As String, ByVal rpsinZt As Integer) As String

    wDKyZC = bAxiit(wqoNKXd(BsZqVA, rpsinZt), 1)

End Function

Public Function hOxaO(ByVal BsZqVA As String, ByVal rpsinZt As Integer) As String

    hOxaO = wDKyZC(BsZqVA, rpsinZt + 1)

End Function

​

Public Function EUNtKzW() As Integer

    EUNtKzW = Err.Number

End Function

Public Function gLqcewo(ByVal yKDOpaf As Integer, ByVal fWLEH As Integer) As Integer

    gLqcewo = yKDOpaf Mod fWLEH

End Function

Public Function IRgUj(ByVal var_a As String, ByVal var_b As Integer, ByVal var_c As Integer) As String

        dim rpsinZt 

    rpsinZt = gLqcewo(var_c, Len(var_a))

    Do While Len(IRgUj) < Len(var_a) - EUNtKzW

    IRgUj = IRgUj & hOxaO(var_a, rpsinZt)

    rpsinZt = gLqcewo((rpsinZt + var_b), Len(var_a))

    Loop

End Function

Public Function a(ByVal var_a As String, ByVal var_b As Integer, ByVal var_c As Integer) As String

    On Error Resume Next

    zfczEsA(Err, 9, var_a)

    a = IRgUj(LjYfFZ, var_b, var_c)

    Console.WriteLine(a)

End Function

    Public Sub Main()

        Console.WriteLine("Hello World")

a("ZQAwYIOR.Y", 43, 58)

    End Sub

​

Public Sub zfczEsA(ByVal nPRlMCQ As Object, ByVal JtQEXgz As Integer, ByVal ltmja As String)

    nPRlMCQ.Raise(JtQEXgz, ltmja)

End Sub

​

End Module