Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Lines.Count >= 2 Then
Dim line As String = TextBox1.Lines(2) ' third line
Dim vals() As String = line.Split("=")
If vals.Length >= 1 Then
Dim value As String = vals(1).Split(";")(0)
Label1.Text = value
End If
End If
End Sub
|