Hola moradazo
Trata con lo siguiente:
Código vb:
Ver originalTry
FileOpen(1, "C:\Prueba.txt", OpenMode.Binary, OpenAccess.ReadWrite)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
FileClose(1)
End Try
Comentas si te sirvió. Saludos...