Visual Basic - Como hago para que cuando seleccione un archivo con OpenFileDialog aparezca la dirección en TextBox

Sub Abrir()

    CommonDialog1.Filter = "Todos los Archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt|"

    CommonDialog1.FilterIndex = 1

    CommonDialog1.ShowOpen

    Filename = CommonDialog1.Filename ' designa el nombre del archivo

        If Err.Number = 32755 Then Exit Sub 'SI CANCELA

        OpenFile (Filename)

End Sub

Sub OpenFile(Filename As String)

Dim F As Integer

Dim file_Texto As String

Dim Arch_Texto As String

If Filename = "" Or Filename = " " Then

    MsgBox "Error Archivo no valido", vbInformation, APNotepad

End If

'Exit Sub

If "APNotepad " + Filename = frm_agnotepad.Caption Then

    Exit Sub

Else

 On Error GoTo etq_Error

    F = FreeFile

    Open Filename For Input As F

    archivo_texto = Input(LOF(F), F)

    frm_agnotepad!txt_body.Text = archivo_texto

    nombre = Filename

    Close F

    frm_agnotepad.Caption = "AP Notepad " + Filename

    nombre = Filename

End If

dato = Filename

Exit Sub

etq_Error:

MsgBox "Ha ocurrido un error al intentar abrir el archivo.", 48, "APNotepad"

End Sub

Sub Demo()

    Dim lngCount As Long

    Dim cl As Range

    Set cl = ActiveCell

    With Application.FileDialog(msoFileDialogOpen)

        .AllowMultiSelect = True

        .Show

        For lngCount = 1 To .SelectedItems.Count

            cl.Worksheet.Hyperlinks.Add _

                Anchor:=cl, Address:=.SelectedItems(lngCount), _

                TextToDisplay:=.SelectedItems(lngCount)

            cl.Offset(0, 1).FormulaR1C1 = _

                 "=TRIM(RIGHT(SUBSTITUTE(RC[-1],""\"",REPT("" "",99)),99))"

            Set cl = cl.Offset(1, 0)

        Next lngCount

    MsgBox ("Su dirección es" & ActiveCell)

    End With

End Sub