Road labels

Function FindLabel ( [ROADNAMEBASE] , [ROADNAMETYPE] )

FindLabel = PCase( [ROADNAMEBASE] & " " & [ROADNAMETYPE] )

End Function



Function PCase(strInput)

Dim iPosition

Dim iSpace

Dim strOutput

iPosition = 1

Do While InStr(iPosition, strInput, " ", 1) <> 0

iSpace = InStr(iPosition, strInput, " ", 1)

strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))

iPosition = iSpace + 1

Loop

strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))

strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

PCase = strOutput

End Function