For i = 1 To lv.Anz
    lv.Rec = i          'Aktuellen Datensatz setzen
    Dim arlv() As String = lv.PNr.Split("01")
    For Each str As String In arlv
       'Abfrage,ob kalk.BNr aus einem A und Zahlen besteht
       If lv.PNr = "01" & str Then
           z += 1
       End if
    Next str
Next

Dim test As String = lv.PNr
Dim arlv() As String = {test.Substring(0, 2), test.Substring(2, test.Length)}