Dim Counter as Long
 
Sub main ()
' ...
Counter = 0
' ...
Close #1
MsgBox "Zahl der Kombinationen: "+Format(Counter, "0")    ' irgendeine 
' Ausgabefunktion
End Sub
 
Function rec2 ()
' ...
  Print #1, strMask
  Counter = Counter +1
' ...
End Function

Sub main()
' ...
Close #1
MsgBox FileLen (FILENAME) / 2
End Sub