Option Explicit
Const strUrl As String = "www.meine-domain.de/inhalt.txt"
Dim strDateiInhalt As String
Dim machen As Boolean
 
Private Sub Command1_Click()
strDateiInhalt = Inet1.OpenURL(strUrl)
'MsgBox strDateiInhalt
If strDateiInhalt = "1" Then machen = True
End Sub