Sub test()
    Dim s
    For i = 1 To 10000
        DoEvents
        s = vp(i, 10000, 10)
        Application.StatusBar = s
        DoEvents
    Next
    Application.StatusBar = False
End Sub
'##################################################
Function vp(a, b, Optional c = 10, Optional d = "#")
    vp = p(a, b) & " " & v(a, b, c, d)
End Function
Function v(a, b, Optional c = 10, Optional d = "#")
    v = String(Round(a / (b / c)), d)
End Function
Function p(a, b)
    p = Format(a / b, "00.00 %")
End Function