Option Explicit
Dim i As Long, t As Integer, s As Single, b As Integer, k As Integer
Dim falg As Integer, r As Long, ls As Integer, li As Integer, L As Integer

Private Sub Form_Click()
Form1.Cls
Form1.Refresh

For i =  1  To  99999 
  s = i *  10  ^ (k -  38 )
  t =  0 
  While i Mod  10  ^ (t +  1 ) =  0 
    t = t +  1 
  Wend
  falg =  0 
  falg =  38  - t - k
  If falg =  7  Then Stop
  If falg >  7  Then b =  5 
  r = s - i *  10  ^ (k -  38 )
  ls = Len(CStr(s))
  li = Len(CStr(i)) + b - t
  If ls > li And r <>  0  And k >  25  Then
    Form1.Print s, i
    L = L +  1 
  End If
Next i
Form1.Caption = Str$(k) + "   " + Str$(L)
k = k +  1 

End Sub

Private Sub Form_Load()
k =  25 
L =  0 
End Sub