Største værdi i del af streng

Jeg har brug for at gemme filer med et løbenr., fx. som hér Ftest1.xml, -2 ... Ftest117.xml osv.

Jeg finder max værdien på nedenstående måde, men den virker temmelig omstændelig.

Findes der ikke en mere elegant metode i .NET til at isolere og afgøre største talværdi i en streng ?

        Dim dif As IO.DirectoryInfo = New IO.DirectoryInfo("K:\test")
        Dim filer As IO.FileInfo() = dif.GetFiles
        Dim Ub As Integer
        Ub = UBound(filer)
        Dim str As String
        Dim ln, i, o, pos, max, tmp As Integer

        For o = 0 To Ub
            str = filer(o).ToString
            ln = Len(str)
            For i = 0 To ln - 1
                If Mid(str, 1, 5) = "Ftest" Then
                    If str.Chars(i) = "." Then
                        pos = i
                        tmp = Val(Mid(str, 6, pos - 1))
                        If tmp > max Then max = tmp
                    End If
                End If
            Next
        Next