Visual Basic - Aplicacion por defecto

¿Como puedo conseguir q mi aplicacion llame al programa por defecto que el sistema tiene asociado a una cierta extension de ficheros?

por ejemplo: si hago doble click sobre un txt q se habra el bloc de notas, si es un html el explorador q se encuentre instalado, etc.

podrias hacer esto:
Private Sub Text1_DblClick()
Dim X
X = Shell("C:\windows\notepad.exe", vbNormalFocus)
End Sub