TextBox1.Text = INI_ReadValueFromFile("Start", "OFFSET", "", _
          "C:\Test.ini")
        Dim SplitArray() As String = Split(txtTextbox1.Text)
        Textbox2.Text = SplitArray(1)

    Public Function Split(ByVal Expression As String,Optional ByVal Delimiter _
      As String = " ",Optional ByVal Limit As Integer = -1,Optional ByVal _
      Compare As CompareMethod = CompareMethod.Text) As String()
 
    End Function

        Dim val1 As String = "1234 <XX>"
        Dim val2 As String = val1.Split(" ")(0)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Module modStringExtensions
 
    ''' <summary>Splitten des Inhalts einer Stringvariable</summary>
    ''' <param name="arg">zu splittende Variable</param>
    ''' <param name="separator">Splitt-Zeichenfolge</param>
    <System.Runtime.CompilerServices.Extension()> _
    Public Function Split(ByVal arg As String, ByVal separator As String, _
        Optional ByVal splitoptions As StringSplitOptions = _
        StringSplitOptions.None) As String()
 
        If arg Is Nothing Then Return Nothing
        If String.IsNullOrEmpty(separator) Then Return New String() {arg}
        Return arg.Split(New String() {separator}, splitoptions)
 
    End Function
End Module

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist