VBA User Form

Hello,

I have got a question regarding ending user form. I was trying to build simple form to set print area but I can't remove form after formatting is performed. I was trying to use "Unload" function, but in this case doesn't work (below my code)

Private Sub CommandButton1_Click()

Call TextBox1_Change
Call HorizontalLayout_Click
Call VerticalLayout_Click
Unload CommandButton1_Click - this line doesn't work

End Sub

Private Sub HorizontalLayout_Click()
If HorizontalLayout = True Then
ActiveSheet.PageSetup.Orientation = xlLandscape
Else
ActiveSheet.PageSetup.Orientation = xlPortrait
End If
End Sub

Sub VerticalLayout_Click()
If VerticalLayout = True Then
ActiveSheet.PageSetup.Orientation = xlPortrait
Else
ActiveSheet.PageSetup.Orientation = xlLandscape
End If
End Sub

Private Sub TextBox1_Change()
Dim x As Integer
x = TextBox1.Value
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = x
End With
End Sub