I am using "Right(Environ("UserName"), 1)" to pull the last character in the
username. This character happens to be a number. Since it is a string, I
need to know have to convert to a numeric in order to use in a formula.

Thanks

Dim num as Long

num = Right(Environ("UserName"), 1)

Or to make it more robust

Dim num as Variant
num = Right(Environ("UserName"), 1)
if isnumeric(num) then
num = clng(num)
end if

--
Regards,
Tom Ogilvy


"WLMPilot" <(E-Mail Removed)> wrote in message
news:7A5DB685-6FE3-460F-BD59-(E-Mail Removed)...
>I am using "Right(Environ("UserName"), 1)" to pull the last character in
>the
> username. This character happens to be a number. Since it is a string, I
> need to know have to convert to a numeric in order to use in a formula.
>
> Thanks

I think it's not a bad idea to check if a string is numeric before
converting, just in case:

res = Right(Environ("USERNAME"), 1)

If IsNumeric(res) Then
res = CInt(res)
Else
MsgBox "Can't convert"
End If

--
urkec


"Vergel Adriano" wrote:

> CInt(Right(Environ("UserName"), 1))
>
> --
> Hope that helps.
>
> Vergel Adriano
>
>
> "WLMPilot" wrote:
>
> > I am using "Right(Environ("UserName"), 1)" to pull the last character in the
> > username. This character happens to be a number. Since it is a string, I
> > need to know have to convert to a numeric in order to use in a formula.
> >
> > Thanks

CInt(Right(Environ("UserName"), 1))

--
Hope that helps.

Vergel Adriano


"WLMPilot" wrote:

> I am using "Right(Environ("UserName"), 1)" to pull the last character in the
> username. This character happens to be a number. Since it is a string, I
> need to know have to convert to a numeric in order to use in a formula.
>
> Thanks