Dim sArray() As String
Dim sLangerString As String
 
'Wert aus der *.ini einlesen
RetStr1 = Space(256)
ReadIni "Engine.Input", "1", RetStr1, RetStr1, Len(RetStr1), App.Path & _
  "\Config.ini"
Textbox.Text = RetStr1
 
'ausgelesenen Wert splitten
sLangerString = Textbox.Text
sArray = Split(Textbox.Text, "|") ' senkrechter Strich als Trennzeichen
Text2.Text = sArray(0) 'Ausgabe des ersten Teiles in einer neuen TextBox

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.