Function szr(x As String) As String
Dim tempo As String
tempo = x
Do While Left(tempo, 1) = "0"
tempo = Right(tempo, Len(tempo) - 1)
Loop
szr = tempo