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))
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