split and mid once again

Public Class frmTestApp

    Private Sub frmTestApp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load
    End Sub

    Private Sub btnTekst_Click(sender As System.Object, e As System.EventArgs) _
        Handles btnTekst.Click

        txtTekst.Text = "ADR;WORK;PREF:;;Straat 01;Plaats;;Postcode"

        Dim txt As String = txtTekst.Text
        Dim newTxtStrings As New List(Of String)

        'newTxtStrings = txt.Substring(txt.IndexOf(":") + 1).Split(";").Where(Function(txtString)
        '                                                                         Return txtString.Length > 0
        '                                                                     End Function).ToList

    End Sub

    Private Sub btnSplit_Click(sender As System.Object, e As System.EventArgs) _
        Handles btnSplit.Click




    End Sub

    Private Sub btnMid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnMid.Click

        txtMid.Text = txtTekst.Text


    End Sub

    Private Sub btnUbound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles btnUbound.Click

        txtUbound.Text = txtTekst.Text


    End Sub
End Class