Find first Capital letter in string

[Dutch1956]

Courtesy of Doug Steele, mvp, I found below Function which works great. It returns the position of the first capital letter in the string.
However, I want it to return the first capital letter and not its position. Can you please tell me what I need to change in this Function?

Function FirstCapital(InputString As String) As Long
' returns 0 if no capital found
Dim lngFirstCapital As Long
Dim lngLoop As Long
Dim strCurrChar As String

lngFirstCapital = 0
For lngLoop = 1 To Len(InputString)
strCurrChar = Mid$(InputString, lngLoop, 1)
If Asc(strCurrChar) >= 65 And _
Asc(strCurrChar) <= 90 Then
lngFirstCapital = lngLoop
Exit For
End If
Next lngLoop

FirstCapital = lngFirstCapital



End Function

[rpeare]

FirstCapital = mid(InputString,lngFirstCapital,1)

[Dutch1956]

Thank you so much for the quick reply.
Assuming that I replace you suggestion with FirstCapital = lngFirstCapital is causing a type mismatch. Please keep in mind that I am only a novice with ms access.

Bert.

[boblarson]

You have to change this part:
Function FirstCapital(InputString As String) As Long

to this:
Function FirstCapital(InputString As String) As String

[Dutch1956]

Thank you so much Bob. It works amazing but you probably new that.You guys are amazing. Thanks again from rainy Wales in the United Kingdom.


Bert.

[boblarson]

Thanks again from rainy Wales in the United Kingdom.

You're welcome from normally rainy Portland, Oregon, USA (but we've had quite a few rain free days - okay, it has rained a little at night, but who counts that when you're sleeping )