Private Sub Command1_Click()
Dim a(9) As Integer
Dim b(9) As Integer
Dim seq() As Integer
ct = 0: Open "c:\tsf_output.txt" For Output As #1
For s = 0 To 200000
t = Trim(Str(s))
For i = 1 To Len(t)
c = Int(Mid(t, i, 1))
b(c) = b(c) + 1
Next i
t1 = s Mod 10
t2 = (s - t1) / 10
If b(t1) = t2 Then
For i = 0 To 9
a(i) = b(i)
Next i
ct = ct + 1: ReDim Preserve seq(ct) As Integer: seq(ct) = s
tb = t1 * 8
If (tb < ltb) Or (lt2 <> t2) Then Print #1, ""
Print #1, Tab(tb); s; " ";
ltb = tb
lt2 = t2
Else
For i = 0 To 9
b(i) = a(i)
Next i
End If
Next s
Print #1, ""
Print #1, ""
Print #1, ct; " terms"
Print #1, ""
Print #1, "[";
For i = 1 To ct
Print #1, Trim(Str(seq(i)));
If (i <> ct) Then Print #1, ", ";
If (i Mod 16) = 0 Then Print #1, ""
Next i
Print #1, "]"
Print #1, ""
Print #1, "Final values for each digit:"
Print #1, ""
For i = 0 To 9
Print #1, Trim(Str(i)); ":"; a(i)
Next i
Close #1
End Sub