Dim gültigReg As RegExp
Dim vglstring As String
 
Set gültigReg = New RegExp
 
gültigReg.Pattern = "[a-z]+[A-Z]"
gültigReg.IgnoreCase = True
 
vglstring = Text1(0)
 
If gültigReg.Test(vglstring) Then
Label2 = "OK"
Else
Label2 = "NOK"
End If
 
End Sub