Visual Basic - Como hacer que el texto de textbox sustituya la ruta

Dim ARCHIVO As String = "C:\Datos.RCG"

Dim ARCHIVO As String

ARCHIVO = Textbox.Text

Public Class Bar

    Dim ARCHIVO As String = "C:\Datos.RCG"

    Dim precios As String = "C:\Precios.RCG"

    Dim numero1, numero2 As Decimal

    Public Sub DATOS()

        For Each LINEA In File.ReadAllLines(ARCHIVO.ToString.ToLower)

            If LINEA.StartsWith("total:") Then

                TextBox1.Text = LINEA.Split(":")(1)

            End If

Public Sub DATOS()

    TextBox1.Text  = ""

    For Each LINEA In File.ReadAllLines(ARCHIVO.ToString.ToLower)

        If LINEA.StartsWith("total:") Then

            TextBox1.Text = TextBox1.Text + VbCrLf + LINEA.Split(":")(1)

        End If

Public Class Bar

Dim ARCHIVO As String

Dim precios As String

Dim numero1, numero2 As Decimal

Public Sub Ficheros_DATOS()

   ARCHIVO = Textbox1.text

   Precios = Textbox2.text

End Sub