For zaehler = 0 To 2147483647 
 
        oword.Selection.TypeText Form1.List1.List(zaehler) & vbCrLf
 
 
        If Form1.List2.List(zaehler) = "" Then
        Msgbox "bla"
        End If
 
        If oword.Selection Is Nothing Then 
        Msgbox "blu"                         
        End If
 
        If oword.Selection Is Nothing Then 
        Msgbox "blubb"                          
        End If
 
 
    Next