>>269
それじゃツマランので(藁

Private Sub Command1_Click()
'変数の宣言
Dim Labeltext As String

Labeltext = Label1.Caption 'label1の文字の取得

If Label1.Tag <> "0" Then
Label1.Caption = Label1.Caption & Text1.Text
Text1.Text = ""
Else
Label1.Caption = Text1.Text
Text1.Text = ""
Label1.Tag = "1"
End If
End Sub