• Home
 · 
• String Manipulation
 · 
• Text Progress Bar

Text Progress Bar

Give this function a number from 0 to 100, and it will generate a cool progress bar made of text!

Inputs
A number from 0 to 100. (Using a bigger value will cause the bar to extend.)

Returns
A string containing a progress bar made of text.

Rate Text Progress Bar

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

Function MakePercentBar(ByVal Value As Long) As String
Dim i As Long
MakePercentBar = "["
For i = 1 To ((Value - 1) \ 10)
  MakePercentBar = MakePercentBar + "-"
Next i
MakePercentBar = MakePercentBar + "|"
For i = 10 To ((Value - 1) \ 10) + 2 Step -1
  MakePercentBar = MakePercentBar + "-"
Next i
MakePercentBar = MakePercentBar + "]"
End Function