I have Solution here:
Dim regExMatch2 As System.Text.RegularExpressions.Match
regExMatch = System.Text.RegularExpressions.Regex.Match(CheckIfBooked, "Batch (.+)/\d+ pcs", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
regExMatch2 = System.Text.RegularExpressions.Regex.Match(CheckIfBooked, "Batch (.+)/(\d+) pcs", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
If regExMatch.Success Then
batch = regExMatch.Groups(1).Value
End If