COMO USO A FUNCAO LEN MESMO?

          For i = 0 To lstEstados.ListCount - 1
             If lstEstados.Selected(i) Then
                 'm_GridForm.TextMatrix(m_GridForm.Row, 14)
                 sPegaEstadoLista = sPegaEstadoLista & "-" & Left(objlstEstados.Data(i), 2)
             End If
          Next
          'Tira um traço que ficou a mais, pegando os caracteres a partir do segundo
          sPegaEstadoLista = Mid(sPegaEstadoLista, 2)
          m_GridForm.TextMatrix(m_GridForm.Row, 14) = sPegaEstadoLista