Visual Basic - Buscar archivos

¿Cómo tengo que hacer para buscar, por ejemplo: todos los archivos con extención mp3 (*.mp3) en todo el disco rígido, y luego, mover esos archivos a una carpeta determinada?
Muchas gracias

Lo puedes hacer con la función Dir, en http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctDir.asp tienes la documentación y un ejemplo.

O con las funciones:

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long