Private Sub cmdEncrypt_Click()
Message = txtInput.Text
Dim EncryptedMsg As String
Dim checknum As Long
checknum = Rand(1, 9)
For i = 0 To 255
    EncryptedMsg = Replace$(Message, Chr(i), Chr(i + checknum))
Next i

txtOutput.Text = EncryptedMsg

End Sub

Function Rand(ByVal Low As Integer, ByVal High As Integer) As Integer
    Randomize
    Rand = ((High - Low + 1) * Rnd) + Low
End Function

    EncryptedMsg = Replace$(Message, Chr(i), Chr(i + checknum))

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 <= 255 Then
    Message = Replace$(Message, Chr(i), Chr(i + 2))
    Else
    Message = Replace$(Message, Chr(i), Chr(0 + ((255 - i) + 2)))
    End If
Next i

txtOutput.Text = Message

End Sub

    If i + checknum <= 255 Then
    Message = Replace$(Message, Chr(i), Chr(i + 2))
    Else
    Message = Replace$(Message, Chr(i), Chr(0 + ((255 - i) + 2)))
    End If

    Message = Replace$(Message, Chr(i), Chr((i + 2) Mod 256))

Private Sub cmdEncrypt_Click()
Message = txtInput.Text
Dim EncryptedMsg As String
Dim checknum As Long
checknum = Rand(1, 9)
For i = 32 To 126
    'If i + 2 <= 126 Then
    Message = Replace$(Message, Chr(i), Chr(i + 2))
    'Else
    'Message = Replace$(Message, Chr(i), Chr(32 + ((126 - i) + 2)))
    'End If
Next i

txtOutput.Text = Message

End Sub

For i = 32 To 126

For i = 65 To 90

For i = 0 To 255

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 <= 255 Then
    Message = Replace$(Message, Chr(i), Chr(i + 2) Mod (255))
    'Else
    'EncryptedMsg = Replace$(Message, Chr(i), Chr(0 + ((255 - i) + 2)))
    'End If
Next i

txtOutput.Text = Message

End Sub

Dim checknum As Long
Dim i As Long
Randomize
checknum = Int((9 * Rnd) + 1)

txtOutput.Text = ""

For i = 1 To Len(txtInput.Text)
    txtOutput.Text = txtOutput.Text & Chr((Asc(Mid(txtInput.Text, i, 1)) + checknum) Mod 256)
Next i