Option Explicit
Private Sub Command1_Click()
Dim n As String
n = (Text1.Text)
If IsNumeric(n) = True Then
MsgBox (" Number:-" & " " & n)
ElseIf n = UCase(n) Then
MsgBox ("UPPER CASE string:- " & " " & n)
ElseIf n = LCase(n) Then
MsgBox ("lower case string:- " & " " & n)
End If
End Sub