Řešení při předání řetězce číslic

Zbývá napsat proceduru, která určí, zda uživatel vyhrál. Vyhraje malou výhru, budou-li dvě číslice stejné,
daleko větší výhru budou-li všechny číslice za sebou (vzestupně nebo sestupně) a nejvíc vyhraje, budou-li
všechny tři číslice stejné. Funkce může vypadat například takto:
Public Function Vyhral(ByVal strCislo As String) As String
Dim i, j, intCislo As Integer
' Inicializace
Vyhral = "NE"
intCislo = CInt(strCislo)
' Všechny tři číslice stejné – hlavní výhra
For i = 0 To 999 Step 111
If intCislo = i Then
Vyhral = "HLAVNI"
Exit Function
End If
Next
' Postupka nahoru, velká výhra
For i = 12 To 789 Step 111
If intCislo = i Then
Vyhral = "POSTUPKA"
Exit Function
End If
Next
' Postupka dolů, také velká výhra
For i = 987 To 21 Step -111
If intCislo = i Then
Vyhral = "POSTUPKA"
Exit Function
End If
Next
' Dvě stejné, malá výhra
For i = 1 To Len(strCislo)
For j = i + 1 To Len(strCislo)
If Mid(strCislo, i, 1) = Mid(strCislo, j, 1) Then
Vyhral = "DVESTEJNE"
Exit Function
End If
Next j
Next i
End Function