VB .NET: An example OpenFileDialog function

OpenFileDialogExample.vb

    Private Function OpenFile() As String
        'build and configure an OpenFileDialog
        Dim OFD As New OpenFileDialog
        With OFD
            .AddExtension = True
            .CheckFileExists = True
            .Filter = "Excel  files(.xlsx)|*.xlsx|Excel files (*.xls)|*.xls"
            .Multiselect = False
            .Title = "Select an workbook to open"
        End With

        'show the ofd and if a file was selected return it, otherwise return nothing
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Return OFD.FileName
        Else
            Return Nothing
        End If
    End Function

super awesome, thanks