راهنمایی برای کد اینکد تکست

[yashar_2006]

سلام
دوستان من امروز اولین بار .net نصب کردم به علت اینکه باید یه پروژه کلاسی تحویل بدم
اما واقعا هیچی از دات نت نمیدونم
میخواد با دراگ و دراپ یه فایل تکست تو برنامه اونو فایل رو تبدیل کنه به utf8 و ذخیره کنه
من این کد رو پیدا کردم ولی میدونم اصلا کار نمیکنه
لطفا راهنمایی کنید


Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs)
Dim strArray As String()
Dim str As String
Dim reader As StreamReader
Dim str2 As String
Dim writer As StreamWriter
Dim flag As Boolean
strArray = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
If (Not ((Path.GetExtension(strArray(0)) = ".txt") Is 0) Is Nothing) Then
GoTo
End If
Try
str = strArray(0)
reader = New StreamReader(str, Encoding.GetEncoding("Windows-1256"))
str2 = reader.ReadToEnd
reader.Close()
writer = New StreamWriter((str.Substring(0, (str.Length - 4)) & ".edited.txt"), 0, Encoding.UTF8)
writer.Write(str2)
writer.Close()
GoTo
Catch obj1 As Object
MessageBox.Show("Bad or corrupted file!")
GoTo
End Try

GoTo

MessageBox.Show("Unknown file type!")

Return
End Sub

در حد اماتور از بیسیک 6 سر در میارم ولی از دات نت هیچی نمیدونم
لطفا راهنمایی کنید . در ضمن میخوام نیاز به آپدیت ویدوز نباشه و .دات نت فرامورک نباشه و روی همه سیستم ها اجرا بشه