Private Sub Combo1_Click() Select Case Combo1.Text Case "1" Text1.Text = "a" Case "2" Text1.Text = "b" Case "3" Text1.Text = "c" End SelectEnd Sub
