如何获得选择的文件名并打开

怎么获得选择的文件名并打开？
   我想打开一个word文件，需要知道这个文件的路径和名字，可是不知道怎么获取名字啊

    Dim dialg1 As CommonDialog = New OpenFileDialog   新建对话框

    dialg1.ShowDialog()  现实

    Dim docp As String    获取当前路径

    docp = CurDir()

    filename=？  怎么获取我点击的文件名？

    openfile（filename）        打开文件
------解决方案--------------------
最后写错了

openfile（doc+filename）是这样