Getting first part of a string!

[SimonPearce]

I want to be able to get someone's first name from a string of text that contains their whole name. The problem is, the whole name has no space in it but the names have capital letters Eg:

SimonPearce
JoeBloggs
FredSmith

Can anyone work out how I can get a string that just says: Simon, Joe or Fred??

Thanks!

Simon

[Buzby]

Try this;

Function FirstName(FullName As String) As String
Dim nCount As Integer
FirstName = ""
nCount = 1
While Left(FullName, nCount) = StrConv(Left(FullName, nCount), vbProperCase) And nCount <= Len(FullName)
FirstName = Left(FullName, nCount)
nCount = nCount + 1
Wend
End Function


Use it like this

[firstname]=FirstName("[fullname]")

eg;

Msgbox FirstName("MarkBeeton") would display a msgbox with "Mark" on it.

The code isn't wonderful but it should solve the problem.



------------------
Mark "Buzby" Beeton
VB Developer
[email protected]