Function Pasus(K As Integer) As String
Dim i As Integer
Dim Brojac As Integer
i = K
Do While i > Brojac
i = i - 1
Pasus = Pasus & "  "
Loop