Imports System.Console
 
Module Module1
 
    Sub Main()
        Dim strText As String
        Dim länge As Integer
        Dim i As Integer
        Dim nummer = 0
 
        strText = ReadLine()
        länge = Len(strText)
        WriteLine(strText)
 
        For i = 1 To länge
            Write(nummer)
            nummer += 1
            If nummer > 9 Then
                nummer = 0
            End If
        Next
        ReadLine()
    End Sub
 
End Module

Er kam, er sah, er zerst?rte - Der MENSCH