Text string to a number
 

The following function returns a text..but i want to get it as a number:

Public Function Gmid(vin)
If Mid(vin, 12, 1) < "A" And Mid(vin, 12, 1) 0 Then
ID = Right(vin, 6)
Else
ID = Right(vin, 5)
End If
Gmid = ID
End Function

Thanks in advance x your help!

AhsMorK (chile)

Text string to a number
 

Public Function Gmid(vin) As Long
__________________________________________________ _____________________

"AshMorK" wrote in message
...
The following function returns a text..but i want to get it as a number:

Public Function Gmid(vin)
If Mid(vin, 12, 1) < "A" And Mid(vin, 12, 1) 0 Then
ID = Right(vin, 6)
Else
ID = Right(vin, 5)
End If
Gmid = ID
End Function

Thanks in advance x your help!

AhsMorK (chile)