Bob,
Here is a public function that you can use. I tested it against your
example and every example that Wayne provided and it worked. You should test
it with other examples.
Public Function First3Chars(OrigString As String)
Dim strMyString As String
Dim varStrLoc As Variant
Dim varAddlLen As Variant
If InStr(1, OrigString, "'") Then
varStrLoc = InStr(1, OrigString, "'")
strMyString = Left(OrigString, varStrLoc - 1)
If Len(strMyString) < 3 Then
varAddlLen = 3 - Len(strMyString)
strMyString = UCase(strMyString & Mid(OrigString, varStrLoc + 1,
varAddlLen))
Else
strMyString = UCase(strMyString)
End If
Else
strMyString = UCase(Left(OrigString, 3))
End If
First3Chars = strMyString
End Function
Watch for line wraping.
-----
HTH
Mr. B
http://www.askdoctoraccess.com/
Doctor Access Downloads Page:
http://www.askdoctoraccess.com/DownloadPage.htm