Option Explicit

Private Sub Form_Load()
Dim Bond1 As Integer
Bond1 = "1"
If Bond1 = "1" Then
Text1.Text = "111"
End If
End Sub

Private Sub Command1_Click()
Text1.Text = "222"
Label1.Caption = "22"
Dim Bond2 As Integer
Bond2 = "2"
If Bond2 = "2" Then
Text1.Text = "333"
Label1.Caption = "33"
End If
End Sub