Visual Basic.NET - Abrir archivos asociados a una aplicación

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

       ' "Command$" es un tipo de variable que guarda la ruta del archivo asociado

       'si Command no está vacío ....

            If Len(Command$) Then

                Dim ruta As String = Command$()

                Abrir_Archivo(ruta)

            End If

    End Sub

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

        Dim objReader As System.IO.StreamReader

        If Len(Command$) Then

                       Dim ruta As String = Command$()

                       Me.Text = ruta

                       objReader = File.OpenText(ruta)

                       RichTextBox1.Text = objReader.ReadToEnd

                       objReader.Close()

        Else

        End If

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objReader As System.IO.StreamReader

        Dim ruta As String = "C:\Users\ENMA\Desktop\ARCHIVO.TP3"

        Me.Text = ruta

        objReader = File.OpenText(ruta)

        RichTextBox1.Text = objReader.ReadToEnd

        objReader.Close()

    End Sub