Private Sub Timer1_Timer()
    Dim strURL As String
    On Error Resume Next
 
    If Clipboard.GetFormat(vbCFText) Then
 
    strURL = Clipboard.GetText
    strURL = Replace(strURL, ":", "")
    strURL = Replace(strURL, "/", "")
    strURL = Replace(strURL, "?", "")
    Clipboard.SetText strURL, vbCFText
End If
End Sub