Riuovere individuare parte di una stringa ( access VBA)

Public Sub Virgxx()

' definiamo la nostra stringa
Dim Stx As String
Stx = "a123,xxxa12345,67"

' Troviamo la posizione della PRIMA virgola
Dim Pos As Integer
Pos = InStr(Stx, ",")

' Troviamo la lunghezza totale della stringa
Dim Lex As Integer
Lex = Len(Stx)

' componiamo la nuova stringa con il pezzo iniziale e finale
Stx = Left(Stx, Pos) & Right(Stx, Lex - Pos - 3)
MsgBox Stx

End Sub

-- da questo
bullone ,123cacciavite ,xyztrapano,154vitexyz ,gg etc.... ,marcellino

-- vuoi ottenete questo
bullone 
cacciavite 
trapano
vitexyz 
etc.... 
cellino

Public Sub Virgxx02()

' definiamo la nostra stringa
Dim Stx As String
Stx = "1234,aaa12345,vvv123456,   1234567,d d12345678"

Dim Pox As Integer  ' la posizione della virgola considerata
Dim Lex As Integer  ' la lunghezza totale della stringa
Dim Vax As Integer  ' La parte di stringa gia valutata
Vax = 1


Inizio:    ' Il ciclo inizia qui
If InStr(Vax, Stx, ",") = 0 Then GoTo Fine  ' se sono finite le virgole va alla chiusura

Pox = InStr(Vax, Stx, ",")
Lex = Len(Stx)

Stx = Left(Stx, Pox) & Right(Stx, (Lex - Pox - 3))  ' <- qui decidi quati caratteri togliere

Vax = Pox + 1

GoTo Inizio   ' il ciclo finisce qui e ritorna all'inizio

Fine:
MsgBox Stx

End Sub