Определение статуса оплаты в зависимости от суммы оплаты

Public Function PayStatus(vTotal As Variant, vPaid As Variant) As String
'данные по статусу оплаты
'Если счет выставлен и поле "Оплачено" пусто ,то статус "не оплачено";
'если поле "Оплачено"= поле"Сумме по документу",то статус "оплачено полностью ",
'иначе "оплачено частично".
'----------------------------------------------------------------
 
On Error GoTo PayStatus_Err
   
    Select Case vPaid
       Case Is >= vTotal
            PayStatus = "оплачено полностью"
        Case Is < vTotal
            PayStatus = "оплачено частично"
        Case Else
            PayStatus = "не оплачено"
        
    End Select
 
PayStatus_End:
    On Error Resume Next
    Err.Clear
    Exit Function
 
PayStatus_Err:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in Function PayStatus.", _
        vbCritical, "Произошла ошибка!"
    'Debug.Print "PayStatus_Line: " & Erl & "."
    Err.Clear
    Resume PayStatus_End
 
End Function

IIf([Оплачено]>0;IIf([Оплачено]=[Сумма по документу];"Оплачено полностью";"Оплачено частично");"не оплачено")