[VB6] Verificare se le prime due lettere di una stringa sono maiuscole

[pappagrullo]

Ci riprovo, sperando di non fare "crossposting".
Ragazzi Il mio problema è il seguente:
Ambiente di sviluppo: Visual Basic 6.0 ( Access )
- Dato un campo stringa, controllare in esso se le prime due lettere che lo compongono sono maiuscole.
Grazie Anticipatamente

[Stefano1984Mn]

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

[Stefano1984Mn]

Scusa non guardare la variabile parola.

Fai finta che la parola che hai in considerazione sia in Text1.texte poi guarda il codice che ti ho scritto

[pappagrullo]

Ti rigrazio mi sei stato di aiuto a bestia

[xegallo]

ma non fai prima a scrivere

if mid$(stringa,1,2) = ucase$(mid$(stringa,1,2)) then
    msgbox "è si sono maiuscole"
end if

[Stefano1984Mn]

Hai ragione è molto piu semplice il tuo.Non mi ricordavo la proprietà ucase