Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Max As String = String.Empty
 
        Dim Min As String = 1
 
        Dim Input As String = InputBox("Text:")
 
        If Input <> "" Then
            Max = Input
            If Regex.IsMatch(Max, "^[0-9 ]+$") Then
                Dim Filling As Integer = Max.Length
                Dim Result As New StringBuilder
                Dim Progress As String = Max
                For i As Integer = Min To Max
                    Progress -= 1
                    Result.Append(GetProgresive(Progress, Max, Filling) & vbNewLine)
                Next
 
                MsgBox(Result.ToString) 'Resultado Final
            Else
                MsgBox("Porfavor Use Solo Numeros")
            End If
        End If
    End Sub
 
    Private Shared Function GetProgresive(ByVal Min As Integer, ByVal Max As Integer, ByVal FillingCount As Integer, _
                                          Optional ByVal FillingString As String = "0") As String
        Dim s As String = String.Empty
        Dim sb As New StringBuilder
        For i As Integer = Min To Max
            Dim CalculateSpace As Integer = FillingCount - i.ToString.Length
            sb.Append(GenerateSpaces(CalculateSpace, FillingString) & i & " ")
        Next
        Return sb.ToString()
    End Function
 
    Private Shared Function GenerateSpaces(ByVal len As Integer, ByVal FillingStr As String) As String
        Dim sb As New StringBuilder
        For i As Integer = 1 To len
            sb.Append(FillingStr)
        Next
        Return sb.ToString()
    End Function

Comenta Cualquier cosa si necesitas ayuda