Getfiles ud fra filtype giver mig lidt vrøvl

Jeg er ved at lave et program der skal lægge alle filer af en bestemt filtype (*.s) fra et bestemt katalog ned i et array til senere brug.

Problemet er at med denne funktion:

    Public Shared Sub lookup(ByVal dir As String, ByVal pattern As String)
        Dim di As DirectoryInfo = New DirectoryInfo(dir)
        Dim afi As FileInfo() = di.GetFiles(pattern)
        Dim fi
       
        For Each fi In afi
            MsgBox(fi)
        Next
    End Sub

vil den ikke engang skrive filnavnet i en MsgBox, den siger at typen prompt ikke kan konverteres til string...

Det drejer sig om Visual Basic fra Visual Studio 2005