Visual Basic - Codigo de vb2006 no funciona en vb studio 2010

Hola como quedaria el siguiente codigo de vb6 para utilzarlo en visual studio 2010
gracias

Dim strArchivo As String
Dim StrTexto As String
Dim intArchivo As Integer
intArchivo = FreeFile
Open "C:\-------\TER.txt" For Append As #intArchivo
While Not EOF(intArchivo)
Line Input #intArchivo, StrTexto$
A100.Text = A100.Text & StrTexto
B100.Text = B100.Text & StrTexto
C100.Text = C100.Text & StrTexto
Wend
Print #intArchivo, A100.Text & "," & B100.Text & "," & C100.Text
MsgBox "Datos guardados"
End If
-----------------------------------------------------------------------
End Sub