Bom dia, como faço para excluir linhas em branco no listbox?

 

Abraços a todos

teste essa funcao

 

Private Sub Command5_Click()
    For i = 0 To Me.List1.ListCount
        If Me.List1.List(i) = "" Then
            If i < Me.List1.ListCount Then
                Me.List1.RemoveItem i
            End If
        End If
    Next i
End Sub