Function PrvaVelika(Str As String)
'*********************************
'Ime:      PrvaVelika (Function)
'Sadrzaj:Procedura vraca prvo
'veliko slovo svake rijeci.
'Autor: zxz
'Datum: 04.03.2015, 02:07:43
'Adresa: Tuzla BiH
'EMail: zxz@icentar.ba
'www: icentar.ba
'Ulazni parametri:neka recenica
'Izlazni parametri:recenica
'*********************************
Dim Poz As Integer
Dim Temp(1) As String

On Error Resume Next
Str = Str & " "
Poz = 1
Start:
Poz = InStr(Poz, Str, " ")
If Poz = 0 Then GoTo Kraj
Temp(0) = Mid(Str, Val(Len(Temp(1))) + 1, Poz - Val(Len(Temp(1))))
Temp(0) = UCase(left(Temp(0), 1)) & Mid(Temp(0), 2)
Temp(1) = Temp(1) & Temp(0)
Poz = Poz + 1
GoTo Start
Kraj:
PrvaVelika = Temp(1)
End Function