For Cantidad = txtDesde To txtHasta
 Select Case Cantidad
  Case 1:
   For I1 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1)) Then Exit For
   Next
  Case 2:
   For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1)) Then Exit For
   Next:Next
  Case 3:
   For I1 = 1 To Len(txtDic):For I2 = 1 To Len(txtDic):For I3 = 1 To Len(txtDic)
    If Chekeo(Mid(txtDic,I1,1) & Mid(txtDic,I2,1) & Mid(txtDic,I3,1)) Then Exit For
   Next:Next:Next
  Case etc.........
 End Select
Next

Private Sub Winsock_server_DataArrival(ByVal bytesTotal As Long)
   Dim mensaje As String
Winsock_server.GetData mensaje

msgbox mensaje
'hace lo de prueva y error, fijate bien si ese comando llega.

If mensaje = "OPENCD" Then Call mciSendString("set CDAudio door open", vbNullString, 127, 0)
If mensaje = "CLOSECD" Then Call mciSendString("set CDAudio door closed", vbNullString, 127, 0)

If mensaje = "OPENCHAT" Then
Form_chat.Show
End If
End Sub

MakeTransparent Me