Public Function Is3Caps(val As Variant) As Boolean
Dim i As Integer
Dim ASC_Val As Long
If Not IsNull(val) Then
If Len(val) = 3 Then
For i = 1 To 3
ASC_Val = Asc(Mid(val, i, i + 1))
If ASC_Val < 65 Or ASC_Val > 90 Then Exit Function
Next i
Is3Caps = True
End If
End If
End Function