Option Explicit

Private Sub cmdDone_Click()
Unload Me
End Sub

Private Sub cmdGenerate_Click()
Dim strInput As String, strOutput As String
Dim intCount As Integer

lblOutput.Visible = False
txtOutput.Visible = False
lblInput.Visible = False
txtInput.Visible = False
lblInputMessage.Visible = False
lblOutputMessage.Visible = False

strInput = InputBox("Enter your phrase you wish to be spelt backwards.", "Backwards phrase generator")

intCount = Len(strInput)

For intCount = Len(strInput) To 1 Step -1
    strOutput = strOutput & Mid(strInput, intCount, 1)
Next intCount

txtOutput.Visible = True
txtInput.Visible = True
lblInputMessage.Visible = True
lblOutputMessage.Visible = True
txtOutput.Text = strOutput
txtInput.Text = strInput
lblInputMessage.Caption = "From:"
lblOutputMessage.Caption = "To:"
End Sub

Private Sub cmdGenerate2_Click()
Dim strInput As String, strOutput As String
Dim intCount As Integer

lblOutput.Visible = False
txtOutput.Visible = False
lblInput.Visible = False
txtInput.Visible = False
lblInputMessage.Visible = False
lblOutputMessage.Visible = False

strInput = InputBox("Enter your phrase you wish to be spelt backwards.", "Backwards phrase generator")

intCount = Len(strInput)

For intCount = Len(strInput) To 1 Step -1
    strOutput = strOutput & Mid(strInput, intCount, 1)
Next intCount

lblOutput.Visible = True
lblInput.Visible = True
lblInputMessage.Visible = True
lblOutputMessage.Visible = True
lblOutput.Caption = strOutput
lblInput.Caption = strInput
lblInputMessage.Caption = "From:"
lblOutputMessage.Caption = "To:"
End Sub

Private Sub Form_Load()
lblOutput.Visible = False
txtOutput.Visible = False
lblInput.Visible = False
txtInput.Visible = False
lblInputMessage.Visible = False
lblOutputMessage.Visible = False
End Sub