Dim letter As String
Dim words As String
Dim lengthof As Integer
Dim i As Integer

Dim num As Integer

Private Sub Command1_Click()
Text2 = ""
words = Text1
lengthof = Len(words)

If Combo1 = "Rabbit" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 1
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i
ElseIf Combo1 = "Turtle" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 2
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i
ElseIf Combo1 = "Cheetah" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 3
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Moose" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 4
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Cow" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 5
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Chicken" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 6
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Sheep" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 7
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Spider" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 8
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Goblin" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 9
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Elf" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 10
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Hobbit" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 11
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Shark" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 12
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Dog" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 13
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Unicorn" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 14
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

ElseIf Combo1 = "Cat" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) + 15
Text2 = Text2 & Chr(32) & num
Text3 = Text3 + Chr(num)
Next i

End If
End Sub

Private Sub Command2_Click()
words = Text3
lengthof = Len(words)

If Combo1 = "Rabbit" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 1
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Turtle" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 2
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Cheetah" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 3
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Moose" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 4
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Cow" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 5
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Chicken" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 6
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Sheep" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 7
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Spider" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 8
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Goblin" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 9
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Elf" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 10
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Hobbit" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 11
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Shark" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 12
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Dog" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 13
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Unicorn" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 14
    
Text4 = Text4 + Chr(num)
Next i
ElseIf Combo1 = "Cat" Then
For i = 1 To lengthof
    letter = Mid(words, i, 1)
    num = Asc(letter) - 15
    
Text4 = Text4 + Chr(num)
Next i
End If
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Combo1.Text = "Rabbit"
End Sub

Private Sub mnuabout_Click()
frmAbout.Show
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuhelp_Click()
Help.Show
End Sub

    Source: geocities.com/matkins70