[VB6] 실행할 때 인수 주기

'bat fileの場合
'Project1.exe import.csv export.csv

'ショートカットの場合
'リック先に　C:\Project1.exe import.csv export.csv

Private Sub Form_Load()
    Dim sPara    As String
    Dim asPara() As String
    Dim i        As Integer
   
    sPara = Command()
    asPara() = Split(sPara, " ")
   
    For i = 0 To UBound(asPara)
        MsgBox asPara(i)
    Next i
End Sub

'結果：メッセージボックス１→import.csv
          メッセージボックス2 →export.csv