Public Sub TextBoxURL_GotFocus()

  Dim meheidodecopas As Boolean
  Dim URL As String

  If Clipboard.Format = 1 Then URL = Clipboard.Paste()
  meheidodecopas = (URL Like "htt{ps,p}://*.*") Or (URL Like "???.???.???.???") Or (URL Like "ftp://*") Or (URL Like "???.???.???.???")
  If URL And meheidodecopas Then TextBoxURL.Text = Clipboard.text

End