Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim strTest As String = "123;456;789"
Dim strArr() As String = strTest.Split(";")
MsgBox(strArr(0) & " " & strArr(1) & " " & strArr(2))
End Sub
