OK, da sich niemand dazu meldet könnte ich Dir alternativ
empfehlen, zuerst die gesamte Zeile einzulesen
und erst im zweiten Schritt die Zeile in die einzelnen Teile
zu teilen. Es gibt eine Visual Basic Routine, die das
sehr gut macht: in deinem Fall also
ersterTeilstring$ = sWord( text$, ";", 1)
Hier ist der Code zur dieser Routine:
Private Function sWord(sourceString As String, separator As String, number As Integer) As String
Dim Searchstring As String
Dim SubString As String
Dim pos As Integer
Searchstring$ = sourceString & separator
For i% = 1 To number
pos% = InStr(Searchstring$, separator)
If pos% = 0 Then Exit For
SubString$ = Left(Searchstring$, pos% - 1)
Searchstring$ = Mid(Searchstring$, pos% + 1)
Next
If pos% > 0 Then
sWord = SubString$
Else
sWord = ""
End If
End Function
Sorry, da ich R4 nicht kenne, kann ich Dir nicht sagen, warum es nicht mehr funzt.
Ciao
Don Pasquale