Open File Dialog

        Dim AllText As String = "", Lineoftext As String = ""
        OpenTxt.ShowDialog()
        If OpenTxt.FileName <> "" Then

        End If
        Try
            FileOpen(1, OpenTxt.FileName, OpenMode.Input)
            Do Until EOF(1)
                Lineoftext = LineInput(1)
                AllText = AllText & Lineoftext & vbCrLf
            Loop
            txtBox.Text = AllText
        Catch
        Finally
            FileClose(1)
        End Try