Function PremMotMaj(x As String) As String
Dim i&, j&
For i = 1 To Len(x)
If Asc(Mid(x, i, 1)) >= 65 And Asc(Mid(x, i, 1)) <= 90 Then
For j = i + 1 To Len(x)
If Asc(Mid(x, j, 1)) < 65 Or Asc(Mid(x, j, 1)) > 90 Then Exit For
Next j
PremMotMaj = Mid(Left(x, j - 1), i)
Exit For
End If
Next i
End Function