Function FKDR(ByVal Kills As String, ByVal Deaths As String, ByVal KDR As String)
Dim Result As Double
If KDR = 0 Then
Result = Kills / Deaths
Else
Result = KDR * Kills - Deaths
End If
If KDR < 1 Then
Return Format(Result, "0.00")
Else
Return Format(Result, "0")
End If
End Function
FKDR(Kills, Deaths, 0)
FKDR(Kills, Deaths, Desired KDR)