Private Sub Command1_Click()
Dim TestVar As String
 
  TestVar = "TestText*wegdamit"
 
  If InStr(1, TestVar, "*") Then
    TestVar = Mid(TestVar, 1, InStr(1, TestVar, "*") - 1)
    MsgBox TestVar
  Else
    MsgBox "Das Zeichen * ist nicht vorhanden"
  End If
 
End Sub