Public Function GrossKlein(Wert As Variant) As Variant
'erstellt vom Aus- und Fortbildungszentrum Bremen, Fred Hoppe-Kiaup
'am 12.02.2008
    Dim sort As String, I As Integer, temp As String, z As Integer
    If IsNull(Wert) Then
        GrossKlein = " "
        Exit Function
    End If
    For I = 1 To Len(Wert)
        'Besonderheiten bei Umlauten und ß berücksichtigen
        Select Case Asc(Mid(Wert, I, 1))
        Case 196 'Ä
            z = 65
        Case 214 'Ö
            z = 79
        Case 220 'Ü
            z = 85
        Case 228 'ä
            z = 97
        Case 246 'ö
            z = 111
        Case 252 'ü
            z = 117
        Case 223 'ß
            z = 115
        Case Else
            z = Asc(Mid(Wert, I, 1))
        End Select
        'hexadezimale Darstellung für die Sortierung erzeugen
        temp = temp & Format(z, "000")
    Next I
    GrossKlein = temp
End Function