Option Explicit

Private Sub Form_Load()
Dim Connection As String

On Error GoTo Hata

Inet1.RequestTimeout = 2
Connection = Inet1.OpenURL("[Misafirler Kayıt Olmadan Link Göremezler Lütfen Kayıt İçin Tıklayın ! ])
DoEvents

If Connection <> "" Then
MsgBox "Internet bağlantınız aktiv.", vbInformation, "Uyarı"
Else
MsgBox "Internet bağlantınız aktiv değil.", vbInformation, "Uyarı"
End If

Unload Me
Exit Sub

Hata:
MsgBox "Internet bağlantınız aktiv değil.", vbInformation, "Uyarı"
Unload Me
End Sub