но если обращаюсь во:

 

когда открываю программу через какой-то файл и передаю в качестве параметра значение коммандной строки, то появляется ошибка:

пораскиув мозгами, я пришел к выводу, что так как файл открыт и у нему идет обращение второй раз - вот и возникает ошибка...

Если ты его открыл в Form_Load, то там же должен его закрыть, либо в SaveToFile использовать тот же идентификатор, какой ты получил в Form_Load.

Private Sub Form_Load()
    ReDim D(9, 1) As Single
    With Grid1
        .col = 0
        .row = 0
        .Text = "Íàçâàíèå ãðóíòà"
        .row = 1
        .Text = "Ïåñîê ïûëåâàòûé"
        .row = 2
        .Text = "Cóïåñü ïëàñòè÷íàÿ"
        .row = 3
        .Text = "Ïåñîê ìåëêèé"
        .row = 4
        .Text = "Ñóãëèíîê ìÿãêîïëàñò."
        .row = 0
        .col = 1
        .Text = "×èñëî ïëàñòè÷íîñòè"
        .col = 2
        .Text = "Ïîêàçàòåëü òåêó÷åñòè"
        .col = 3
        .Text = "Êîýôôèöèåíò ïîð."
        .col = 4
        .Text = "Ìîùíîñòü ñëîÿ, ì."
        
    End With
    
    With Grid2

        .row = 0
        .col = 0
        .Text = "Ýëåìåíò"
        .col = 1
        .Text = "Âåñ ýëåìåíòà"
        .col = 2
        .Text = "Êîëè÷åñòâî"
        .col = 3
        .Text = "Âûñîòà ýëåìåíòà"
        .col = 4
        .Text = "Øèðèíà"
        .col = 5
        .Text = "Äëèíà"
        .col = 6
        .Text = "Îáúåì"

    End With
    
    With Grid3
    
        .TextArray(.GetCellIndex(0, 0)) = "Íîìåð ðåæèìà"
        .TextArray(.GetCellIndex(0, 1)) = "Ðåæèì"
        .TextArray(.GetCellIndex(0, 2)) = "Íàãðóçêà ïî îñè 1"
        .TextArray(.GetCellIndex(0, 3)) = "Íàãðóçêà ïî îñè 2"
        .TextArray(.GetCellIndex(0, 4)) = "Íàãðóçêà ïî îñè 3"
    
    End With
    
    With Grid4
    
        .TextArray(.GetCellIndex(0, 0)) = "Íîìåð ðåæèìà"
        .TextArray(.GetCellIndex(0, 1)) = "Ðåæèì"
        .TextArray(.GetCellIndex(0, 2)) = "Íàãðóçêà ïî îñè 1"
        .TextArray(.GetCellIndex(0, 3)) = "Íàãðóçêà ïî îñè 2"
        .TextArray(.GetCellIndex(0, 4)) = "Íàãðóçêà ïî îñè 3"
    
    End With
    
    With Grid5
        
        .ColWidth(0) = 2200
        .ColWidth(1) = 1000
        .Width = .ColWidth(0) + .ColWidth(1) + 100
        .TextArray(.GetCellIndex(0, 0)) = "Òèï îïîðû"
        .TextArray(.GetCellIndex(1, 0)) = "Áàçà âäîëü îñè 1"
        .TextArray(.GetCellIndex(2, 0)) = "Áàçà âäîëü îñè 2"
        .TextArray(.GetCellIndex(3, 0)) = "Óãîë ëîê. è ãëîá. îñåé"
        .TextArray(.GetCellIndex(4, 0)) = "Hw"
        .TextArray(.GetCellIndex(5, 0)) = "Âûñîòà áàíêåòêè, Hb"
        .TextArray(.GetCellIndex(6, 0)) = "Gb"
        .TextArray(.GetCellIndex(7, 0)) = "Go"
        .TextArray(.GetCellIndex(8, 0)) = "Yo"
    
    End With
    
    '÷èòàåì èç ôàéëà äàííûõ
    im Fl As Byte:
    im i As Integer, j As Integer, k As Integer
    im dArr(9, 2) As Single
    If Command = "" Then
        'Save
    Else
        MsgBox Command 'for check
        Call SaveToFile(Command)

    End If
    
    For i = 1 To 4
        Grid1.ColWidth(i) = 2850
    Next i
    Grid1.ColWidth(0) = 2850
    Grid1.Width = 2850 * 5 + 100
    Grid1.Height = 1550
    
    For i = 1 To Grid2.Cols - 1
        Grid2.ColWidth(i) = 14350 / Grid2.Cols
    Next i
    Grid2.ColWidth(0) = 2500
    Grid2.ColWidth(2) = 2500
    Grid2.ColWidth(6) = 1500
    Grid2.ColWidth(5) = 1500
    Grid2.Width = 14350 / Grid2.Cols * Grid2.Cols + 100
    Grid2.Height = 1550
    
    For i = 0 To Grid3.Cols - 1
        Grid3.ColWidth(i) = 10000 / Grid3.Cols
    Next i
    Grid3.Width = Grid3.ColWidth(1) * 5 + 100
    Grid3.Height = 1000

    For i = 0 To Grid4.Cols - 1
        Grid4.ColWidth(i) = 10000 / Grid4.Cols
    Next i
    Grid4.Width = Grid4.ColWidth(1) * 5 + 100
    Grid4.Height = 1000
End Sub

Command - это, вроде, команда, которую посылает винда когда открывается прога. Например если открывать файл с помощью твоей проги, то в Command будет содержаться путь к файлу (в ковычках)

И к тому же, если передавать в качестве параметра путь к файлу без кавычек, то в command он будет тоже без них.