Ciao mettiamo che la tua parola sia nella variabile Parola
quidi

Private Sub Command1_Click()
Dim a As String
Dim b As String

a = Left(Text1.Text, 2)
b = Right(a, 1)
a = Left(a, 1)
If Asc(a) > 64 And Asc(a) < 96 Then
If Asc(b) > 64 And Asc(b) < 96 Then
MsgBox "SONO MAIUSCOLE"
Else
MsgBox "SONO MINUSCOLE"
End If
Else
MsgBox "SONO MINUSCOLE"
End If
End Sub