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