Function IsLoaded(FormName As String) As Boolean
      Dim csForm

  For Each csForm In Forms
    If StrComp(csForm.Name, FormName, vbTextCompare) = 0 Then
      IsLoaded = True
      
      Exit For
    End If
  Next
End Function

Function MakeStrFromList(ListSpec As ListBox) As String
         Dim sData$, i%

  For i = 0 To ListSpec.ListCount-1
    sData = sData & ListSpec.List(i) & Chr$(1)
  next

  MakeStrFromList = sData
End Function

Sub StrToList(StrSpec As String)
        Dim sItems$(), i%

  sItems = Split(StrSpec, Chr$(1))

  For i = LBound(sItems) To UBound(sItems)
    Call lstContactos.AddItem(sItems(i))
  Next
End Sub