Code:
If InStr(x, ".") > 0 Then
            x = Trim(x)
            'x = UCase(x)
            Select Case x
                Case ".HELP"
                    send("PRIVMSG " & channel & " :" & "IRC bot written by Azkar (#BAH-NS)" & vbCrLf)
                Case ".help"
                    send("PRIVMSG " & channel & " :" & "IRC bot written by Azkar (#BAH-NS)" & vbCrLf)
                Case Else

                    send("PRIVMSG " & channel & " :" & x & vbCrLf)
            End Select
        End If
the else works, and the x output is exactally what should trigger the select case.