Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
If fd.Show = -1 Then
filename = fd.SelectedItems(1)

Open filename For Output As #1
i = 0
Do Until EOF(1)
Line Input #1, x

y = Left(x, 1)
z = Replace(x, y, UCase(y), 1, 1)


For i = 1 To Len(x)

    y = Mid(x, i, 1)
     If y = " " Then pos = i + 1


Next i
e = Mid(x, pos, 1)
y = Replace(x, e, UCase(e), pos, 1)

answ = Left(z, pos - 1) & y

MsgBox ("Answer is: " & answ)
Loop
Print #1, answ
Close #1
End If
Set fd = Nothing
MsgBox ("The path is: " & filename)