Pico Plug - Datenmüll?

[Ringo]

O.k habs hinbekommen!
hier:

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