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