I commented out some lines to test, but
1. I think you want the fopen.SelectedItems(1) line tp save the selected file name
2. fopen.InitialFileName = "C:...." should probably be something like fopen.InitialFileName = Environ ("USERPROFILE") & "\Documents\*.cfg"
Option Explicit
Sub test()
Dim fopen As FileDialog
Dim fcontent As String
Dim textfile As Integer
ChDir Environ("USERPROFILE") & "\Documents"
Set fopen = Application.FileDialog(msoFileDialogOpen)
fopen.Title = "Select Config File"
' fopen.InitialFileName = "C:...."
fopen.Show
MsgBox fopen.SelectedItems(1) ' <<<<<<<<<<<<<<<
'textfile = FreeFile
'Open EvenLogDir & fopen For Input As #textfile
'fcontent = Input(LOF(textfile), textfile)
'Close #textfile
End Sub
FWIW, I usually just use .GetOpenFileName. For some reason I just find it easier to use
Option Explicit
Sub test2()
Dim FileNameToOpen As String
ChDir Environ("USERPROFILE") & "\Documents"
'https://msdn.microsoft.com/VBA/Excel-VBA/articles/application-getopenfilename-method-excel
FileNameToOpen = Application.GetOpenFilename("Excel Files (*.xls?), *.xls?, Text Files (*.txt), *.txt", 2, "Get a File Name", , False)
If FileNameToOpen = "False" Then
MsgBox "Closing"
Else
MsgBox "Opening " & FileNameToOpen
End If
End Sub