如何让label了的文字受cmd的控制，点一下换一段字符
比如
Private Sub Cmd1_Click()
label1.caption = “好啊”

label1.caption = “恩恩”（然后再点一下就出现）
再点就出现另一段；而不是循环在这两句；比如在点就出现：
label1.caption = “拜拜”
。。。。
。。。。
。。。。
这样不断出现新的字符
要怎样用函数啊

要显示文字和表点符号

Private Function getstring(inputbox As Integer) As String
    Select Case inputbox
        Case 1
            getstring = "哈哈"
        Case 2
            getstring = "呵呵"
        Case Else
    End Select
    End Function

 Private Sub Cmd1_Click()
 Label1.Caption = getstring(inputbox as Integer) as String
 Label1.Caption = "case 2"
End Sub
不行啊，它说有问题