Dim Suchwort As String = "irgendwas"
 Dim text As String = "irgendwas=xyz"
 Dim Wert As String = ""
 
 If text.StartsWith(Suchwort) AndAlso _
    text.Length > Suchwort.Length + 1 Then
 
    Wert = text.Substring(Suchwort.Length + 1)
 End If