[help] KDR Calculator

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        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