Private Sub Command1_Click() Dim a As Long a = 1234 a& = 456