y=Inputbox("Bitte geben sie eine Zahl ein") 'Zahl eingeben
 
x=Len(y) 'Länge rauskriegen und speichern
Replace y,"1","2"
msgbox Len(y)&" "&y 'Nach dem Replace die Länge rauskriegen und mit dem String 
' ausgeben
z=x-Len(y) 'Die neue Länge von der vorherigen subtrahieren
msgbox z 'Ergebnis ausgeben