VB.net OpenFileDialog - get folder name

Hi
How do you use the OpenFileDialog to get the folder name.
I am using the following code to get the file name and need to modify it to        
get the folder name

 Try

            With OpenFileDialog1
                .FileName = GetMyDocumentsFolder()  'takes to My Documents folder
                .ShowDialog()
                Me.txtSaveAttachmentToFolder.Text = .FileName
            End With

            Me.TopMost = True

        Catch
            MsgBox("There was a problem opening the file you specified!")
        End Try