Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
Dim filename As String
If fd.Show = -1 Then
  filename = fd.SelectedItems(1)
  MsgBox ("The path is: " & filename)
  Open filename For Input As #1
    i = 0
    Do Until EOF(1)
            Line Input #1, x
            y = Left(x, 1)
            Z = Replace(x, y, UCase(y))

            a = ""

            For i = 1 To Len(x)

            y = Mid(x, i, 1)

            If y = " " Then
            pos = i + 1

            e = Mid(x, pos, 1)
            n = Replace(x, e, UCase(e))



            End If

           Next i
          a = a + n


         answ = a

         MsgBox (answ)

    Loop
    Print #1, answ
  Close #1

End If
Set fd = Nothing