Dateiname mit Wildcards ermitteln

Hallo Leute,
ich komme grad nicht weiter... Ich möchte mit vb eine Datei ohne Fileopen-Dialog einlesen von der ich nur die Endung kenne. In dem Verzeichnis existiert nur eine Datei mit dieser Endung.. Aber mit:
Dim sfile As String = ("c:\*.MP2")
.
.
oStream = New IO.StreamReader(sfile)
gehts natürlich net.. Kann jemand helfen?

Dim sfile As String = ""  
For Each F In Directory.GetFiles("C:\", "*.MP2")  
    sfile = F
Next
If sfile <> "" Then ...  

Dim sfile As String = ""  
Try
    sfile = Directory.GetFiles("C:\", "*.MP2")(0)  
Catch ex As Exception
End Try
If sfile <> "" Then ...