[CODE TIDBIT]CBL Check

    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