Private Sub Command1_Click()
Dim a As String
a = Text1.Text
a = Chr(Asc(a) - 32)
Label1.Caption = a
End Sub