Changing a string

[gargs]

Hi,

I import a list of usernames from a database into an excel spread sheet. The username looks like this:

smith, mark

I want to write a macro to convert the string into an email address. The format I need is:

mark.smith@blahblah.com

I know how to create the email address but I need to know how to change the username into the correct format.

Thanks in advance.

Grattan

 

[JohnYingling]

Dim lngInstr As long
lngInstr = Instr(1,strname,",&quot
If lnginstr = 0 then ' no comma
strfirstname = ""
strlastname = strname
else
strlastname = Left$(strname,lngInstr-1)
strfirstName = Mid$(strname,lngInst+1)
End if

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[gargs]

Nice one. Thanks

 

[xlbo]

If it works, give it a star - it's the only "payment" people get for helping here - just click on the "Click Here to mark this as a HELPFUL or EXPERT post"
Geoff