Convet to uppercase and lowercase.Use two text box and two command buttons.
Private Sub Command1_Click
If text1.txt = Then
Msgbox "enter the text"
Else If
str1 = txt1.text
str2 = U Case (str1)
txt.text = str2
End If
End Sub
Private Sub Command2_Click
If text1.txt = Then
Msgbox "enter the text"
Else If
str1 = txt1.text
str2 = L Case (str1)
txt.text = str2
End If
End Sub