codice:
Private Sub TextBox_KeyUp(KeyCode As Integer, Shift As Integer)
     If Combo.Text = "pippo" then
           TuaFunzione
     End If 
End Sub