Sub tildaReader()
    FilesToOpen = Application.GetOpenFilename
    Close #1
   Open FilesToOpen For Input As #1

   j = 1
   Do While Not EOF(1)
        Line Input #1, TextLine
        arr = Split(TextLine, "~")
        Cells(j, 1).Resize(1, UBound(arr) + 1).Value = arr
        j = j + 1
   Loop

   Close #1
End Sub