Подскажите, как разделить текст в ячейке на несколько столбцов (разные разделители)

Sub pr()
Dim b() As String
s = "hster91@gmail.com;apokalipto1;dms78:NeP@82.34.98.147:4001;;;Marko Markovic;25;6;1992;Mozilla/5.0 (Windows NT 6.0; Win64; x64; rv:45.0) Gecko/20100101 Firefox/45.0;;"
n = InStr(1, s, "Mozilla")
a = Mid(s, 1, n - 1)
b() = Split(a, ";")
ReDim Preserve b(10)
b(9) = Mid(s, n, Len(s) - n - 1)
For i = 0 To 9
MsgBox (b(i))
Next i
End Sub

Dim S1() As String, _
    S2 As String, _
    S As String, _
    i As Byte
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT import_imp FROM import")
Do Until Rst.EOF
   i = InStr(Rst!import_imp, "Mozilla")
   S2 = Mid(Rst!import_imp, i)
   S1 = Split(Left(Rst!import_imp, i - 2), ";")
   For i = 0 To UBound(S1)
   S = S & """" & S1(i) & ""","
   Next
   S = S & """" & S2 & """"
CurrentDb.Execute "INSERT INTO Fb_actual (Fb_akk, FB_Pass, FB_Proxy, FB_mail, FB_mail_pass, FB_name, FB_DD, FB_MM, FB_YYYY, Fb_userag) VALUES (" & S & ")"
Loop
Rst.Close
End Sub

Private Sub Command0_Click()
Dim S1() As String, _
    S2 As String, _
    S As String, _
    i As Byte, _
    Ak As Integer 
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM import")
 If Rst.RecordCount <> 0 Then 
        Rst.MoveLast 
        Rst.MoveFirst 
For Ak = 0 To Rst.RecordCount - 1
   S = " "
   i = InStr(Rst!import_imp, "Mozilla")
   S2 = Mid(Rst!import_imp, i)
   S1 = Split(Left(Rst!import_imp, i - 2), ";")
   For i = 0 To UBound(S1)
   S = S & """" & S1(i) & ""","
   Next
   S = S & """" & S2 & """"
CurrentDb.Execute "INSERT INTO Fb_actual (Fb_akk, FB_Pass, FB_Proxy, FB_mail, FB_mail_pass, FB_name, FB_DD, FB_MM, FB_YYYY, Fb_userag) VALUES (" & S & ")"
Rst.MoveNext
Next
End If
Rst.Close
End Sub

Private Sub Command0_Click()
Dim S1() As String, _
    S2 As String, _
    S As String, _
    i As Byte, _
    i1 As Byte, _
    Ak As Integer 
Dim S4() As String
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM import")
 If Rst.RecordCount <> 0 Then 
        Rst.MoveLast 
        Rst.MoveFirst 
For Ak = 0 To Rst.RecordCount - 1
   S = " "
   i = InStr(Rst!import_imp, "Mozilla")
   S2 = Mid(Rst!import_imp, i)
   S1 = Split(Left(Rst!import_imp, i - 2), ";")
   i1 = InStr(Rst!import_imp, "Firefox")
   S4 = Split(Mid(Rst!import_imp, i1), ";")
   For i = 0 To UBound(S1)
   S = S & """" & S1(i) & ""","
   Next
   If UBound(S4) = 0 Then
    S = S & """" & S2 & ""","""","""""
    CurrentDb.Execute "INSERT INTO Fb_actual (Fb_akk, FB_Pass, FB_Proxy, FB_mail, FB_mail_pass, FB_name, FB_DD, FB_MM, FB_YYYY, Fb_userag) VALUES (" & S & ")"
    Else
    S = S & """" & S2 & """,""" & S4(1) & """,""" & S4(2) & """"
    End If
    CurrentDb.Execute "INSERT INTO Fb_actual (Fb_akk, FB_Pass, FB_Proxy, FB_mail, FB_mail_pass, FB_name, FB_DD, FB_MM, FB_YYYY, Fb_userag, FB_friends, FB_friends_rq) VALUES (" & S & ")"
Rst.MoveNext
Next
End If
Rst.Close
End Sub