Function RemoveSpacesAndDashes(str As String) As String
Dim fstr, lstr
While Len(str) > 0
lstr = Left(str, 1)
If lstr <> " " And lstr <> "-" Then fstr = fstr & lstr
str = Mid(str, 2)
Wend
RemoveSpacesAndDashes = fstr
End Function
HTH,
Toby
----- Original Message -----
From: "teresaamc" <[EMAIL PROTECTED]>
To: <AccessDevelopers@yahoogroups.com>
Sent: Wednesday, October 12, 2005 10:27 AM
Subject: [AccessDevelopers] phone number conversion
> I've got a list of account numbers that appear to be formatted with
> dashes and spaces between the numbers. I need to convert these numbers
> to a format without spaces or dashes. I've tried searching the
> messages here and can't come up with any results. Does anyone have a
> solution for me? Thanks!!!
>
>
>
>
>
>
>
> Please zip all files prior to uploading to Files section.
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Fair play? Video games influencing politics. Click and talk back!
http://us.click.yahoo.com/T8sf5C/tzNLAA/TtwFAA/q7folB/TM
--------------------------------------------------------------------~->
Please zip all files prior to uploading to Files section.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessDevelopers/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
