Private Sub Text1_Change()
        Select Case Buffer
                  case "Tiempo"
                        timer1.enabled = true
                        timer2.enabled = true
       end select
End Sub

Bloquea el mouse y el teclado
'-----Modulo-----
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

'-----Programa-----
'Añadir un timer en el formulario
'Durante 10 segundos el teclado y mouse quedaran bloqueados

Private Sub Form_Load()
    Timer1.interval = 1000
    BlockInput True
End Sub

Private Sub Timer1_Timer()
    Static contador As Integer
    contador = contador + 1
    If contador = 10 Then BlockInput False: MsgBox "timer"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Winsock1.GetData Buffer
    Select Case Buffer
          case "Tiempo"
                   timer1.enabled = true
                   timer2.enabled = true
   end select
End Sub