[xXxKaiserxXx]

Bardzo fajny poradnik 10/10 !

x = MsgBox("System Windows stracił połączenie z internetem. W celu ponownego połączenia z internetem naciśnij Ponów próbę lub Anuluj...",5+16, "Błąd")

Select Case x
	Case vbRetry
		d = MsgBox("Nie udało się nawiązać połączenia.",5+16, "Błąd")
Select Case d
	Case vbRetry
		d = MsgBox("Nie udało się nawiązać połączenia.",0+16, "Błąd")
	Case vbCancel
		d = MsgBox("Próba połączenia z internetem została anulowana.",0, "Anulowanie")
End Select
	Case vbCancel
		d = MsgBox("Próba połączenia z internetem została anulowana.",0, "Anulowanie")
End Select

Tak na szybko napisane...