O.k habs hinbekommen!
hier:
Code:
b = InStr(1, Me.Text1, "*")
If b = 0 Then
Else
b = b + 1
an = InStr(b, Me.Text1, "*")
End If
If an = 0 Then
Else
an = an - b
Me.EmpText = Mid(Me.Text1, b, an)
Me.Text1 = Me.EmpText
Me.Zahl = Filter(Me.Text1, cNumbers, True)
Me.EmpText = Filter(Me.Text1, cNumbers & cWhiteSpaces)
Me.Text1 = ""
End If
Me.text1 kommt der kam vom Pico plug an
Emp text ist nur ein zwischenbuffer
dann werden die Zahlen schön in Zahl und me.emptext geschrieben
jetzt muss ich nur noch beim ARV befehl das Print "*"; überall dazu schreiben
Naja hauptsache es funst \/
danke @ all
Mfg
Ringo
Lesezeichen