Private Sub Command1_Click()
 
    MsgBox """" & GetFirstPart("hallo hello - tobi") & """"
 
End Sub
 
Public Function GetFirstPart(Wort As String) As String
 
    Dim intCharAT As Long
        intCharAT = InStr(1, Wort, "-") - 1
 
    Dim strNew As String
        strNew = Left(Wort, intCharAT)
 
        GetFirstPart = Trim$(strNew)
 
End Function

Mit freundlichen Gr??en,
Andy G.