Dim arkalk( ) As String = kalk.BNr.Split("A")
For Each str As String In arkalk
      If kalk.BNr = "A" & str Then
          For a = 1 To bma.Anz
                bma.Rec = a
          Next
      End if
Next str

Dim artest() As String = lv.PNr.Split("0")
For Each str1 As String In artest
       If lv.PNr = "0" & str1 Then
             Dim arlv() As String = str1.Split("1")
             For Each str2 As String In arlv
                     If str1 = "1" & str2 Then
                         For j = 1 To kalk.Anz
                                kalk.Rec = j
                         Next
                     End if
             Next str2
       End if
Next str1