Sub parseIt()
Dim db As DAO.database
Dim rs As DAO.Recordset
Dim rsOut As DAO.Recordset
Dim varr() As String
Dim DataRaw As String
Dim i As Integer
Set db = CurrentDb
'Set rsOut = db.OpenRecordset("tblParseData")
Set rs = db.OpenRecordset("SELECT data FROM ShoretelVMRaw")
Do While Not rs.EOF
Debug.Print rs!Data
DataRaw = rs!Data
For i = 0 To 3
DataRaw = Replace(DataRaw, " ", " ")
Next
varr() = Split(Trim(DataRaw), " ")
For i = 0 To UBound(varr)
If i < 5 Then
Debug.Print i; (varr(i))
Else
Debug.Print i; CLng(varr(i))
End If
Next
'add a record to tblParsedData
'With rsOut
' .AddNew
'!FirstName = varr(0)
'!LastName = varr(1)
'!MailboxNumber = varr(2)
'!UserGroup = varr(3)
'!MHeard = varr(4)
'!MUnheard = varr(5)
'!MDeleted = varr(6)
'!MAllowed = varr(7)
'!OldestUnheard = varr(8)
'!OldestHeard = varr(9)
'!SpaceUsedKB = varr(10)
'End With
rs.movenext
Loop
End Sub