Imports System

Public Module Module1

    Public Sub Main()

        dim junk as string = "Ourvu grOoeatzQestnH glWbory\W isth nouxt iNVn nhlevelZr fCRallL\ingrQ, bdhut k`in VRrisVWingJt evmGeryfo ti[Rme SNwe \bfal[^lXJ:"

        Console.WriteLine(decodestring(junk))

        End Sub

    Public function decodestring(newcode as string)

        dim position as integer = 0

        dim messagelength as integer = 3

        dim junklength as integer = 2

        dim newnew as string = ""

        for position = 0 to newcode.Length

        newnew  = newnew & newcode.substring(position,messagelength)

        position = position+messagelength+junklength-1

     next

    return newnew

    end function

End Module