Вы можете использовать функцию Split
на дефисе.
.Split("-")
Если вы хотите держаться подальше от Split
, вы можете использовать SubString
yourString.Substring(0, yourString.IndexOf("-") - 1)
РЕДАКТИРОВАТЬ
Вышекод завершится ошибкой в тех случаях, когда дефис вообще отсутствует или дефис находится в начале строки, а также при отсутствии пробелов вокруг дефиса полная начальная подстрока не возвращается.Попробуйте использовать это для безопасности:
Dim pos As Integer
Dim result As String
pos = yourString.IndexOf("-")
If (pos > 0) Then
result = yourString.Substring(0, pos)
ElseIf (pos = 0) Then
result = String.Empty
Else
result = yourString
End If