WarPathSin's KDR Calculater [Converted!]

Function currentKDR()
        Dim k1 As String = kills.Text
        Dim D1 As String = deaths.Text
        Dim C1 As String = k1 / D1
        Dim F1 As String = C1.Remove(4, (C1.Length - 1))
        If k1 = 0 Then
            TextBox3.Text = "Try Again.."
            Button2.Enabled = False
        Else
            TextBox3.Text = F1
            Button2.Enabled = True
        End If
    End Function

CurrentKDR()