Visual Basic - URGE pero no caigo como hacerlo

Este seria el codigo para numeros de una sola cifra pero no lo saco para cuando tienen mas de una cifra los numero que componen str, ademas han de tener ese formato, los numeros da igual cuales sean.


Dim str As String
str = "2, 4, 6"
coma = InStr(1, str, ",")
If Not (IsNumeric(coma)) Then
num = Left(str, coma - 1)
MsgBox (num)
Else
While coma <> 0
comab = coma
num = Mid(str, coma - 1, comab + 1 - coma)
coma = InStr(coma + 2, str, ",")
Wend
num = Right(str, Len(str) - comab - 1)
End If
End Sub