Dividing a number stored as text

[Mclaren]

I have used the code below to get the Machine name and then convert to ASC. I want to then take the value a divide that value by any number, for instance 2.
When i divide my variable that stores the converted information i get a funny result: EG: if the pc name is "MIASROOM" the value returned after conversion is :7773658382797977, when divded it becomes :3.88682919139899E +15

Option Compare Database
Public vThisPCName As String
Public vThisPCNameASCii As String

Private Declare Function apiGetComputerName Lib "kernel32" Alias _
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String

'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function

Function Convert_ThisPCName()
'Get machine name and assign to variable MyMachineName
vThisPCNameASCii = ""
vThisPCName = fOSMachineName

'Convert Machine name to ASC and save to variable vThisPCNameASCii

Dim i As Integer
Dim LengthOfText As Integer
LengthOfText = Len(vThisPCName)
For i = 1 To LengthOfText
vThisPCNameASCii = vThisPCNameASCii & CStr(Asc(Mid$(vThisPCName, i, 1)))
Next i
End Function

[Mclaren]

OK, i got it, its the scientific equivilant. so yeah. me is doff.