Avances de Visual nº2 (Por Joni M.)

Private Sub uno_Click()
auxcanal.Caption = auxcanal.Caption + "1"
End Sub

Todos los numeros se programan igual

Private Sub Enter_Click()
numcanal.Caption = auxcanal.Caption auxcanal.Caption = ""
End Sub