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

[xegallo]

ma non fai prima a scrivere

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