vb.net 如何通过点击出浏览对话框选中.txt文件，并读取txt中的数据

数据格式如下，四列，中间为空格：

2021-1-1 1 2 3

2021-1-1 4 5 6

Private Sub Command1_Click()

    Dim strFile     As String

    Dim intFile     As Integer

    Dim strData     As String

     strFile = "c:\aaa.txt"

    intFile = FreeFile

    Open strFile For Input As intFile

    strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

    Debug.Print strData

    Close intFile

End Sub