Dim intCount As Integer

intCount = Len(Label1.Caption)