Funktion klappt nicht warum?
03.11.2003 09:42:49
Micha
Ich will eine Funktion die die Eingabe in einer Textbox abfängt ob ein Semikolon eingeben wird und dann den Text ohne Semikolon zurücksetzt. Hab schon was funktioniert aber nicht warum?
Function OhneSemi(strEingabe As String) As String
Dim i As Byte
Dim char As String
'*** StrEingabe ist nicht leer, wenn diese Funktion aufgerufen wird!
For i = 1 To Len(strEingabe)
char = Mid$(strEingabe, i, 1)
If char = ";" Then
MsgBox "Die Eingabe eines Semikolons ist aus syntaktischen Gründen nicht zulässig!"
OhneSemi = (strEingabe - ";")
Exit Function
End If
Next
End Function
Anzeige