Replace$ error

[Pbcrazy]

alright, and i just kinda realized why i was only getting 2 different characters in the final string, i was adding/replacing in the same string, so the replace command was replacing characters it had just previously replaced. And now i remember why i had the encryptedmsg in there

edit: hmph, alright i tried it, and it came up with a type mismatch error

[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 + 2