URLデコード VB2005

テキストボックスに、URLエンコードされた文字列を貼り付けて、URLデコードボタンを押して、URLデコードするプログラム。
今更ながら・・・非常に単純です。
でも、アクセス解析などに無いと不便で、あるととても便利。
と言うわけで、作成しました。
WEBサイトのURLでコードを利用していましたが、いちいちブラウザで開いてデコードするよりも、こちらの方が早いし便利。
改行もばっちり。
ついでに、EXEも配布しますので、適当にお使いください。
ダウンロードファイルは[urldeco.zip]です。 VB2005で作成しています。
ソースは以下の通り。

'参照設定で.NET　の　System.Webを参照。
Imports　System.Web
Imports　System.Text
Imports　System

Public　Class　Form1

　　　　Private　Sub　Button1_Click(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　Button1.Click
　　　　　　　　Dim　strEncode　As　Text.Encoding
　　　　　　　　Dim　str　As　String　=　""

　　　　　　　　'Shift_JIS
　　　　　　　　'utf-8

　　　　　　　　If　Me.ComboBox1.Text　＜＞　""　Then
　　　　　　　　　　　　strEncode　=　Encoding.GetEncoding(Me.ComboBox1.Text)
　　　　　　　　　　　　str　=　HttpUtility.UrlDecode(Me.TextBox1.Text,　strEncode)
　　　　　　　　Else
　　　　　　　　　　　　str　=　HttpUtility.UrlDecode(Me.TextBox1.Text)
　　　　　　　　End　If

　　　　　　　　Me.TextBox1.Text　=　str
　　　　End　Sub

　　　　Private　Sub　Button2_Click(ByVal　sender　As　System.Object,　ByVal　e　As　System.EventArgs)　Handles　Button2.Click
　　　　　　　　Me.TextBox1.Text　=　""
　　　　End　Sub
End　Class