Pseudo-ProgressBar in un'applicazione 'a riga di comando'

Se si sta codificando in un'applicazione a riga di comand (quindi senza supporto grafico), per ottenere in console/Terminale un effetto simile ad una ProgressBarr, può essere utilizzata una soluzione, che adopera ovviamente caratteri, simile alla seguente:

Public Sub Main()
 
 Dim b As Byte
 
   Do
     Write #File.Out, CStr(b) & "\x20"
     b += 5
   Loop Until b = 105
 
   Print
   
   Write #File.Out, "="
   b = 0
  
   Do
     Sleep 0.3
     Write #File.Out, String(Len(CStr(b)) + 1, "=")
     b += 5
   Loop Until b = 100
  
End