Sub SomeSub
Dim MySecret as string = X 'This sub will return "Hello World"
End Sub
Private Sub X() as String
Dim b(12) as Byte
b(0) = Bit.ShiftRight(75505855,20)
b(1) = Bit.ShiftRight(25389,3)
b(2) = Bit.ShiftRight(223082,11)
b(3) = Bit.ShiftRight(3550668,15)
b(4) = Bit.ShiftRight(458321,12)
b(5) = Bit.ShiftRight(268466875,23)
b(6) = Bit.ShiftRight(10938,3)
b(7) = Bit.ShiftRight(58206654,19)
b(8) = Bit.ShiftRight(58848,9)
b(9) = Bit.ShiftRight(14167173,17)
b(10) = Bit.ShiftRight(6579261,16)
b(11) = Bit.ShiftRight(4353155,17)
return BytesToString(b, 0, 12, "UTF8")
End Sub