I am writing the following code but It doesn't convert string to integer and gives me overflow message. The struse will store string in the following format:
1. first character A
2. next characters numbers.
Any help will be much appreciated. ThanksCode:Private Sub Command0_Click() Dim StrUser As String Dim StrUser1 As String Dim Intuser As Integer StrUser = Environ("username") StrUser1 = Right(StrUser, Len(StrUser) - 1) Intuser = Val(StrUser1) MsgBox StrUser1 MsgBox Intuser End Sub