[Visual Basic] [OS]"Counter"

'#####################################
'(c) By Knusperkeks
'Benötigt:
'4 Textfelder (Text1 - Text4)
'2 Button's (command1 + Command2)
'#####################################


Private Sub Command1_Click()
Dim ausgabe() As Variant

Text2.Text = ""

If Text4.Text <= 9 Then
 ausgabe = laenge_eins(Text1.Text, Text3.Text, Text4.Text)
Else
 If Text4.Text <= 99 Then
 ausgabe = laenge_zwei(Text1.Text, Text3.Text, Text4.Text)
 Else
 ausgabe = laenge_drei(Text1.Text, Text3.Text, Text4.Text)
 End If
End If

For i = 0 To UBound(ausgabe)
 If ausgabe(i) <> "" Then
 Text2.Text = Text2.Text & ausgabe(i) & vbCrLf
 End If
Next i

End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = "0"
Text3.Text = "0"
End Sub

Public Function laenge_eins(a As String, s As Long, e As Long) As Variant
Dim arr(10) As Variant

 For i = s To e
 arr(i) = Replace(a, "%%", i)
 Next i

 laenge_eins = arr()
End Function

Public Function laenge_zwei(a As String, s As Long, e As Long) As Variant
Dim arr(100) As Variant

 For i = s To e
 
 If i <= 9 Then
 arr(i) = Replace(a, "%%", "0" & i)
 
 Else
 arr(i) = Replace(a, "%%", i)
 End If
 Next i

 laenge_zwei = arr()
End Function

Public Function laenge_drei(a As String, s As Long, e As Long) As Variant
Dim arr(1000) As Variant

 For i = s To e
 
 If i <= 9 Then
 arr(i) = Replace(a, "%%", "00" & i)
 
 Else
 If i <= 99 Then
 arr(i) = Replace(a, "%%", "0" & i)
 Else
 arr(i) = Replace(a, "%%", i)
 End If
 End If
 
 Next i

 laenge_drei = arr()
End Function