Private Sub sevText1_Validate(Cancel As Boolean)
  If Left(sevText1, 7) <> "http://" AND (Left(sevText1, 7) <> ".de" OR _
    Left(sevText1, 7) <> ".com" OR Left(sevText1, 7) <> ".net") Then
    MsgBox "Keine gültige Adresse!"
    Cancel = True
  End If
End Sub

Viele Gr??e

sk-production.net