Geh deinen Weg! Außer er führt an einem Weinkeller vorbei – dann geh in den Keller!
*gggrrrrr* Argumenttyp ByRef unverträglich!
Man kann einer Funktion einen Wert nur mit ByVal übergeben:
Geht doch!
Oder mit einer Hilfsvariablen:
strTemp = Split(strText, „-„)(0)
MsgBox TextVerarbeiten(strTemp)