Private Sub loadFile(measurementFile As String)
    Dim query As QueryTable

    mSheet.Cells.Clear

    If (FileOrDirExists(measurementFile)) Then

        Set query = mSheet.QueryTables.add( _
            Connection:="TEXT;" + measurementFile, _
            Destination:=mSheet.Cells(1, 1))

        With query
            .TextFileParseType = xlDelimited
            .TextFileSpaceDelimiter = True
            .TextFileTabDelimiter = True
            .TextFileDecimalSeparator = ","
            .Refresh
        End With

    End If

    mSheet.Columns.AutoFit

End Sub