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