Replace$ error

[Pbcrazy]

hmph, well i kinda got it to work, it doesn't give me an error anymore, however the displayed text is...not text?

[code]Private Sub cmdEncrypt_Click()
Message = txtInput.Text
Dim EncryptedMsg As String
Dim checknum As Long
checknum = Rand(1, 9)
For i = 0 To 255
If i + checknum