Excel Daten

[Dark Ranger]

Ich habe schon den ganzen morgen in diesem Forum und im Internet gesucht, aber nix gefunden!

Option Explicit
Dim E, N1, R1, U, N2, R2 As String

Private Sub Einlesen()

E = txtEingabe.Text
N1 = InStr(E, "Nova")
R1 = InStr(E, "Ranger")
N2 = Mid(E, N1 + 6, R1 - N1 - 6)
Text1(0).Text = N2
U = InStr(E, "Unterschied")
R2 = Mid(E, R1 + 8, U - R1 - 8)
Text1(1).Text = R2
Text1(2).Text = Format(R2 - N2, "###,##")

End Sub

Private Sub cmdEinlesen_Click()

Call Einlesen

End Sub

Private Sub cmdExcel_Click()

Dim oWorkbook As Workbook
Dim c, v, b As String
Dim i As Integer
Set oWorkbook = Application.Workbooks.Open("C:\Programme\Microsoft Visual Studio\VB98\Excel\Test.xls")
oWorkbook.Activate
oWorkbook.Sheets("Tabelle1").Range("A2").Value = Format(N2, "###,##")
oWorkbook.Sheets("Tabelle1").Range("B2").Value = Format(R2, "###,##")
oWorkbook.Sheets("Tabelle1").Range("C2").Value = Format(R2 - N2, "###,##")
oWorkbook.Close
Form1.SetFocus
 
End Sub

Das ist mein Code, der auch soweit funktioniert, aber ich will es jetzt so machen, dass zuerst die erste Zeile einer Textbox (Multiline=True) durchsucht wird und dies dann in eine Excel Tabelle geschrieben wird, soweit so gut, aber nun soll die zweite Zeile der Textbox durchsucht werden und die Ergebnisse in A3, B3 und C3 eingetragen werden!

Wie stelle ich das an?