Module Dialogos

    Public Function EscolherArquivo() As String

        Dim ofd As OpenFileDialog = New OpenFileDialog()
        ofd.Filter = "Todos Arqs|*.*"
        ofd.Title = "Selecione o arquivo a ser utilizado"

        If (ofd.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
            Return ofd.FileName
        Else
            Return ""
        End If

    End Function

End Module