Option Explicit
 
Public Property Get text() As String
    text = "Adios Mundo"
End Property
 

Option Explicit
 
Public Property Get text() As String
    text = "Hola Mundo"
End Property
 

Option Explicit
 
Private Sub Combo1_Click()
Dim frm1 As Form1
Dim frm2 As Form2
Static last As Integer
    If last = Combo1.ListIndex Then    ' Evitamos acciones repetidas sobre un mismo elemento.
        Exit Sub
    End If
 
    last = Combo1.ListIndex
 
    Select Case Combo1.text ' o Combo1.ListIndex
        Case "Adios" ' o 0
            Set frm1 = New Form1
            MsgBox frm1.text
        Case "Hola" ' o 1
            Set frm2 = New Form2
            MsgBox frm2.text
        Case Else
            MsgBox "Error"
    End Select
 
End Sub
 
Private Sub Form_Load()
    Combo1.AddItem "Hola"
    Combo1.AddItem "Adios"
End Sub
 

Option Explicit
 
Private Sub Form_Load()
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem "1"
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem "2"
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem "3"
    List1.AddItem ""
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem "4"
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem " " ' Notese que no esta vacio pero es banco...
    List1.AddItem "5"
    MsgBox ("Se eliminaron " & EliminarBlancos(List1) & " elementos considerados blancos.")
End Sub
 
Function EliminarBlancos(ByRef list As Listbox)
Dim i       As Long
Dim ret     As Long
    With list
        While (i < .ListCount) ' While (list.ListCount > 0)
            If EsBlanco(.list(i)) = True Then ' If EsBlanco(list.list(i)) = True Then
                .RemoveItem i ' list.RemoveItem(i)
                ret = (ret + 1)
            Else
                i = (i + 1)
            End If
        Wend
    End With
    EliminarBlancos = ret
End Function
 
Function EsBlanco(ByRef str As String) As Boolean
    EsBlanco = CBool(Trim$(str) = vbNullString)
End Function