Function broj_slovo(broj As String)
Dim broj_int As Integer
Dim i As Integer
Const str = "ABCDEFG"

broj_int = Int(broj)
If broj_int > 0 Then
    For i = 1 To 7
        If i = broj_int Then
        broj_slovo = Mid(str, i, 1)
        Exit For
        End If
    Next i
End If
End Function