String extraction 3

[henio]

Hi,

I have this code to initialise a label on a splash screen.

Private Sub UserForm_Initialize()
Label1.Caption = Environ("username&quot
End Sub

This can give me fred.flintstone or barney.rubble (says something aabout where I'm working!).

How can I extract the first name?

Cheers,
Henio

 

[SkipVought]

Hi,

Could do it with a function

Function UserName(sName, bFirst)
   n = InStr(sName, ".")
    If bFirst Then
        UserName = Left(sName, n - 1)
    Else
        UserName = Right(sName, Len(sName) - n)
    End If
End Function

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[dyarwood]

Use

Left("fred.flinstone",InStr(1,"fred.flintsone",".&quot)

 

[SkipVought]

BTW,

to use UserName

sName = "fred.flintstone"
sFirstName = UserName(sName, True)
sLastName = UserName(sName, False)

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[combo]

Or for office versions higher than 97:

Label1.Caption = Split(Environ("username&quot, ".&quot(0)

combo

 

[henio]

Hi,

Thanks to all of you for replying. I tried Combo's solution first so s(he) gets my star.

There seem to be so many ways of doing anything - I need to buy a good VBA book...

Cheers

Henio