Untitled

 Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
        Dim strFileName As String = OpenFD.ShowDialog()
        OpenFD.InitialDirectory = "C:\"
        OpenFD.Title = "Open a Text File"
        OpenFD.Filter = "Text Files(*.txt)|*.txt|Word Files(*.doc)|*.doc"

        If True = DialogResult.Cancel Then
            MsgBox("Cancel Button Clicked")
        Else
            strFileName = OpenFD.FileName
            MsgBox(strFileName)
        End If




    End Sub