Dim arkalk() As String = kalk.BNr.Split("R")
For Each str As String In arkalk
   'Abfrage,ob kalk.BNr aus einem R und Zahlen besteht
   If kalk.BNr = "R" & str Then
   End if
Next str

Dim a As Integer = 2
Dim arkalk() As String = kalk.BNr.Split("0a")
For Each str As String In arkalk
   'Abfrage,ob kalk.BNr aus einem 02 od. 03 od. ...... und Zahlen besteht
   If kalk.BNr = "0a" & str Then
   End if
   a+=1
Next str