Visual Basic.NET - Como abrir un archivo con mi aplicacion

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

    Try

        If My.Application.CommandLineArgs.Count > 0 Then

            AbrirArchivo(My.Application.CommandLineArgs(0))

        End If

    Catch ex As Exception

        XtraMessageBox.Show(ex.ToString)

    End Try

End Sub

Private Sub AbrirArchivo(ByVal Archivo As String)

    Try

        dsMain = New DataSet

        dsMain.ReadXml(Archivo)

        Me.Text = String.Concat("XMLEditor - ", Archivo)

    Catch ex As Exception

        Throw ex

    End Try

End Sub

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

        For Each s As String In My.Application.CommandLineArgs

            MsgBox(s)

        Next

End Sub