So ungefähr könnte das gehen. Wenn du weiter mit VB arbeiten willst solltest du dich auch mal mit der Programmiersprache auseinandersetzen.... Der Code sollte z.B. nicht auf einen Button gelegt werden sondern in einen Timer. Auf einen anderen Button sollte man dann die Funktion ResetCounter(1) legen damit wieder von null losgezählt wird.

Code:
Private Sub CommandButton12_Click()
	Dim number As Integer
	number = Readcounter(1)
	Select Case number
		Case 0
			'Zahl 0
			SetAllDigital
			ClearDigitalChannel 1
			ClearDigitalChannel 8
		Case 1
			ClearAllDigital
			'Zahl 1
			SetDigitalChannel 4
			SetDigitalChannel 7
		Case 2
			ClearAllDigital
			'Zahl 2
			SetDigitalChannel 3
			SetDigitalChannel 4
			SetDigitalChannel 1
			SetDigitalChannel 4
			SetDigitalChannel 5
			SetDigitalChannel 6
		Case 3
			ClearAllDigital
			'Zahl 3
			SetDigitalChannel 3
			SetDigitalChannel 4
			SetDigitalChannel 1
			SetDigitalChannel 7
			SetDigitalChannel 6
		Case 4
			ClearAllDigital
			'Zahl 4
			SetDigitalChannel 2
			SetDigitalChannel 1
			SetDigitalChannel 4
			SetDigitalChannel 7
		Case 5
			ClearAllDigital
			'Zahl 5
			SetDigitalChannel 3
			SetDigitalChannel 2
			SetDigitalChannel 1
			SetDigitalChannel 7
			SetDigitalChannel 6
		Case 6
			ClearAllDigital
			'Zahl 6
			SetDigitalChannel 2
			SetDigitalChannel 3
			SetDigitalChannel 5
			SetDigitalChannel 6
			SetDigitalChannel 7
			SetDigitalChannel 1
		Case 7
			ClearAllDigital
			'Zahl 7
			SetDigitalChannel 3
			SetDigitalChannel 4
			SetDigitalChannel 7
		Case 8
			'Zahl 8
			SetAllDigital
			ClearDigitalChannel 8
		Case 9
			'Zahl 9
			SetAllDigital
			ClearDigitalChannel 5
			ClearDigitalChannel 8
		Case Else
			MsgBox ("Es wurde öfter als 9 mal gedrückt.")
	End Select	
end sub