✔ Namen aus einen String zu separieren

[Amo8]

Ich versuche gerade einen Namen aus einen String zu separieren. Der Name beginnt immer an der neunten Stelle im String und hinter dem Namen steht immer ein > und eine Leerstelle.

'Namen feststellen
  Dim User As String
  Dim EndPos As String
  EndPos = InStr(Text1.Text, "> ")
   Text25.Text = EndPos
  DoEvents
  User = Mid(Text1.Text, 9, Text25.Text)
 Text24.Text = User

Mein Problem ist das ich hinter dem eigentlichen Namen noch neun Stellen angezeigt bekomme, die ich nicht weg kriege. Ich müßte neun Stellen vom Text25.Text-Inhalt abziehen.
Habe es schon mit verschiedenen Varianten probiert, hat aber keine zu Erfolg geführt.

 

[Alex F.]

 User = Mid(Text1.Text, 9, len (Text1.Text) - 9 ) ' oder parameter weglassen

[Edit]
ups habe noch gesehen das dort ein problem mit ">" ist
in diesem Fall musst du von endpos noch 9 abziehen (bzw. von Text25.text) und nicht wie oben von Text1.text)
[/Edit]

grüsse bb

 

[Amo8]

Wen du das so meinst, das geht leider nicht, da bekomme ich gleich einen Fehler.

 User = Mid(Text1.Text, 9, Len(Text25.Text) - 9)

geht das nicht auch ganz ohne Mid?. Vielleicht mit Split?.

 

[Amo8]

Gut ist erledigt.

'Namen feststellen
  Dim User As String
  Dim pos1 As String
  Dim pos2 As String
  pos1 = InStr(Text1, "  ") + Len("  ") 'erste Position doppelte Leerstelle 
  pos2 = InStr(Text1, "> ")       'zweite Position > Zeichen mit Leerstelle
  On Error Resume Next
  User = Mid(Text1, pos1, pos2 - pos1)
  Text24.Text = User               'ausgeschnittener Name