[code=plaintext]помогите исправить функцию

Function get_nomer_str(k_f46 As Integer, k_pred As Integer, k_grbud As Integer, k_uch As Integer) As get_nomer_str
On Error GoTo err
Dim name As String
Dim nomer As Integer
Dim flag_ok As Boolean
flag_ok = False

If k_pred =  859  And k_f46 =  3  And flag_ok <> True Then 
    name = "Город"
    nomer =  5  '50
    flag_ok = True
End If
If k_uch =  33  And k_f46 =  3  And flag_ok <> True Then 
    name = "Село"
    nomer =  6  '51
    flag_ok = True
End If

If flag_ok = False Then
    name = "Не то и не то "
    nomer =  20 
    'flag_ok = True
End If
get_nomer_str.nomer = nomer
get_nomer_str.name = name
get_nomer_str.flag_ok = flag_ok
Exit Function
err:
    MsgBox err.Description, vbCritical
End Function

Cells(i, "O") = get_nomer_str(tmp.Fields("k_f46"), tmp.Fields("k_pred"), Nz(tmp.Fields("k_grbud"),  0 ), tmp.Fields("k_uch")).nomer
                Cells(i, "P") = get_nomer_str(tmp.Fields("k_f46"), tmp.Fields("k_pred"), Nz(tmp.Fields("k_grbud"),  0 ), tmp.Fields("k_uch")).name
                Cells(i, "Q") = get_nomer_str(tmp.Fields("k_f46"), tmp.Fields("k_pred"), Nz(tmp.Fields("k_grbud"),  0 ), tmp.Fields("k_uch")).flag_ok

Type mismatch

k_pred =  20  And k_f46 =  8 

type mismatch