sort alphanumeric field - code problem

[Davros]

hi
i found this code here and it works IF the number comes first and is preceded by a letter
123AA

but it does not work if the letters come first
AA123

here's the code

Public Function GetString(WholeString As String) As String
Dim i As Integer
Dim Temp As String
Temp = CStr(WholeString)
For i = 1 To Len(WholeString)
    If InStr(1, "0123456789.", Mid(Temp, i, 1)) = 0 Then
        GetString = Mid(Temp, i)
        Exit Function
    End If
    Next i
GetString = Temp
End Function

Public Function GetNumber(WholeString As String) As Double
Dim Temp As String
Dim i As Integer
Temp = CStr(WholeString)
For i = 1 To Len(Temp)
    If InStr(1, "0123456789.", Mid(Temp, i, 1)) = 0 Then
        GetNumber = Mid(Temp, 1, i - 1)
        Exit Function
    End If
    Next i
GetNumber = Temp
End Function

the probelm is with this line but i'm not sure what it is

GetNumber = Mid(Temp, 1, i - 1)

(i also get runtime error 13) but my data is in the same format as the example i downloaded.

any ideas anyone?

thanks in advance and thanks to the person who created the code

 

[MStef]

Hello Davros!

If you want to do this via query, look at "DemoSortAlphanumA2000.mdb".
Look at queries.