Sub Function機能を使う()
サンプルURL = "http://www.sample.com/"
サンプルURL = URL処理(サンプルURL)
MsgBox サンプルURL
End Sub
Function URL処理(URL) As Variant
URL = Replace(URL, "http://", "")
URL処理 = URL
End Function
Sub と Function は全く同じことができるので、明確な区別は難しいですが、
この例のように同様のURL処理をたくさん行うときなどは重宝します。