Dim Seperator() As String = {"!!!!!!!!"}
 
        With Me.TextBox1
            Result = .Text.Split(Seperator, _
              StringSplitOptions.RemoveEmptyEntries)
 
            If Result.Length = 3 Then
                .Text = Result(1)
            End If
        End With