Sub ping() Dim text_ascii As String text_ascii = "341123kjlhasdd1234" 'Als Beispiel Dim antwort As String Dim schlussZeichen As String Dim pos As Integer schlussZeichen = "s" pos = InStr(1, text_ascii, schlussZeichen) antwort = Left(text_ascii, pos - 1) MsgBox (antwort) End Sub