Code for CBL Checker & KDR Calculator-

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

Public Sub CBLDirty(ByVal player As String)
        Try
            Dim Strings As String
            Dim wc As New WebClient

            Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + person + ".html") 
            wc.Dispose() 
            If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then
                'PLAYER IS CBL DIRTY
                return true
            Else
                'PLAYER IS CBL CLEAN
                return false
            End If
            

        Catch ex As Exception
            MsgBox("Error!")
            'error
        End Try
    End Sub