Если вы используете VB. NET, вы можете создать оператор LINQ, который будет принимать символы из строки, пока (но не включая) не найдет запятую:
Dim TestString = "Aberdeen, 1"
Dim toComma = TestString.TakeWhile(Function(c) c <> ","c)
For Each c In toComma
Debug.WriteLine(c)
Next
Если вы знаете, что есть запятая, это может быть:
Dim toComma = TestString.Split({","c}, 2)(0)
Или:
Dim toComma = TestString.Substring(0, TestString.IndexOf(","c))