Structure Artikel
     Dim Mc As String
     Dim Num As Integer
     Dim Bez As String
     Dim Vki As Integer
     Dim AnzVol As Integer
     Dim AnzLer As Integer
End Structure

Public Sub SatzZerlegen(SatzGelesen As String)
 
       Dim myArtikel As New Artikel
 
       'Zuerst die Textfelder
       myArtikel.Mc = Mid(SatzGelesen, 1, 10)
       myArtikel.Bez = Mid(SatzGelesen, 15, 10)
 
End Sub

       ...
       myArtikel.vki = CInt(Mid(SatzGelesen, 26, 4))