Private Sub Combo1_Click()
Select Case Combo1.Text
Case "hola"
MsgBox "chau"
Case "chau"
MsgBox "hola"
End Select
End Sub

Private Sub Form_Load()
With Combo1
    .AddItem "hola"
    .AddItem "chau"
End With
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
Case "Salir"
Text1.Text = "Salir del programa"
Case "Ayuda"
Text1.Text = "Muestra una pequeña ayuda"
Case "LOKEKIERAS"
Text1.Text = "Aca va el texto q se me cante la xuxa xD"
Case Else 'en caso de que no diga nada de lo q apuntamos anteriormente (esto se puede sacar)
Text1.Text = "" 'deja el txtbox vacio (esto tmb XD)
End Select
End Sub