Private Sub Command1_Click()
Dim a, b, c As String
a = Text1
b = Text2
c = a & b
If a & b = c Then MsgBox c
End Su