Visual Basic - vb to vbscript

Hola alguien me puede pasar este codigo a vbscript gracias por adelantado y no piensen que soy un vago que ya lo he intentado

***************************************Codigo***************************************************
Private Sub Form_Load()
dialogs.FileName = App.Path & "/txt.txt"
Open dialogs.FileName For Input As #1
Line Input #1, registro
Text5.Text = registro
Close #1
End Sub





Private Sub Form_Unload(Cancel As Integer)
Dim sArchivo As String
sArchivo = App.Path & "/txt.txt"
Open sArchivo For Output As #1
Print #1, Text5.Text
Close #1

End Sub
Feliz año

Alguien tiene una respuesta buemna?