Ja Zahlenwerte gibt dein Programm richtig aus. Nur wenn du auch Buchstaben und Texte richtig ausgeben willst musst du:

Dim Eingabe As String * 10 schreiben.

Dann klappt es auch.