Private Sub cmdEncode_Click()

Dim Message As String

Dim newMessage As String

Dim MessageLength As Integer

Dim count As Integer

Dim letter As String

Dim letterValue As Long

Message = txtEntry.Text

Message = UCase(Message)

newMessage = ""

MessageLength = Len(Message)

For count = 1 To MessageLength

letter = Mid(Message, count, 1)

letterValue = Asc(letter)

If letterValue = 32 Then

newMessage = newMessage + letter

Else

letterValue = letterValue + 2

letterValue = letterValue Mod 90

End If

If letterValue < 65 then letterValue = letterValue + 64

 

Next count

txtEncode.Text = newMessage

End Sub