For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}") 
   On Error Resume Next 
 If Err <> 0 Then 
   Text1.Text = sLine 
 Else 
   MsgBox "Test gelungen!" 
   Exit Do 
 End If 
Next
Loop 
' Datei schließen 
Close #F 
end sub