This what I have so far:
Private Sub Change_Number_Click()
Dim LCD(0 To 9)
LCD(0) = Array(1, 1, 1, 1, 1, 1, 0)
LCD(1) = Array(0, 0, 1, 1, 0, 0, 0)
LCD(2) = Array(0, 1, 1, 0, 1, 1, 1)
LCD(3) = Array(0, 1, 1, 1, 1, 0, 1)
LCD(4) = Array(1, 0, 1, 1, 0, 0, 1)
LCD(5) = Array(1, 1, 0, 1, 1, 0, 1)...