Is it possible to check the case of a string i.e. if its in lower or upper case

Phil,

Here's a code-friendly way:

Option Explicit
Option Private Module

Public Enum vbCase
vbMixedCase = 0
vbLowerCase = 1
vbUpperCase = 2
End Enum

Public Function GetCase(strTest As String) As vbCase
GetCase = -((LCase(strTest) = strTest) * vbLowerCase + _
(UCase(strTest) = strTest) * vbUpperCase)
End Function

Sub Test()
MsgBox GetCase("Robin") = vbUpperCase
MsgBox GetCase("Robin") = vbLowerCase
MsgBox GetCase("Robin") = vbMixedCase
End Sub

Robin Hammond
www.enhanceddatasystems.com

"phil" wrote in message
...
Is it possible to check the case of a string i.e. if its in lower or upper
case