Dim strTest As String
   Dim strArray() As String
 
   strTest = "10,20,Abc,30,40"
   strArray = Split(strTest, ",")
   MsgBox strArray(0)
   MsgBox strArray(1)
   MsgBox strArray(2)
   MsgBox strArray(3)
   MsgBox strArray(4)

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.