Hi John
try this
your path must be in the first line
you have to add code for error detection ( file no exist ...etc)
buena suerte amigo


Private Sub Command1_Click()
Dim NumFile As Integer
Dim myPath As String
NumFile = FreeFile ' Returns next file num available
Open "c:\path\path.ini" For Input As #NumFile 'open file path.ini por read

Input #1, myPath
MsgBox (myPath)
Close #NumFile ' Close file.
End Sub