GUI Program to demonstrate String Function

Private Sub Command1_Click()
Dim s As String
s = Text1.Text
Text2.Text = UCase(s)
Text3.Text = LCase(s)
Text4.Text = Len(s)
Text5.Text = StrReverse(s)
Text6.Text = Left(s, 5)
Text7.Text = Right(s, 5)
Text8.Text = Mid(s, 6, 5)
Text9.Text = String(10, "a")
Text10.Text = Replace(s, " ", "$$$$$")
End Sub