小段VB停的代码，请高手改写为.net代码

小段VB下的代码，请高手改写为.net代码
从网上找到一段关于向程序自身写数据的代码，请帮助改写为.net环境下的。另外，这段代码应该放在什么位置？
Option Explicit
    Dim myNameSet() As Byte
    Dim MyNameGet() As Byte
    Const AppName = "StanleyPan提示"
    Sub setting()
        Dim InputMsg, Msg As String
        Msg = "请您输入测试内容!! ^_^"
        InputMsg = InputBox(Msg, AppName, "Just for testing--Stanley Pan")
        If InputMsg <> "" Then
            myNameSet = StrConv(InputMsg, vbFromUnicode)
            ReDim Preserve myNameSet(100)    '100基本够测试了
        Open Application.ThisWorkbook.FullName For Binary As 1#
            Put(1.0#, LOF(1), myNameSet)
            Close()
        End If
    End Sub
    Sub Getting()
        ReDim MyNameGet(100)
Open Application.ThisWorkbook.FullName For Binary As 1#
    Get 1#, LOF(1) - 100, MyNameGet
        Close()
        MsgBox(StrConv(MyNameGet, vbUnicode), vbInformation)
    End Sub
[解决办法]
你对着msdn自己去转，都是基本的变量声明，和普通的函数
[解决办法]
读写文件在VB6和VB.NET上有很大区别。VB.NET可以使用的方法非常多。如果说和VB6比较类似的，就应该是My.Computer.FileSystem空间里面的读写TEXT和BYTE()方法了。当然SYSTEM.IO中有更多的方法，主要是流读写，好像看到过说SYSTEM.IO里面的的更推荐使用。