Kreiranje vlastitih extenzija

Code:
Private Sub Form_Load()
Dim cmd As String, StrBuff As String
Dim tFile As Long

    cmd = Command$
    
    If Len(Trim(cmd)) <= 0 Then
        Exit Sub
    Else
        tFile = FreeFile
        Open cmd For Binary Access Read As #tFile
            StrBuff = Space(LOF(tFile))
            Get #tFile, , StrBuff
        Close #tFile
        '
        Text1.Text = StrBuff
        StrBuff = ""
        cmd = ""
    End If
End Sub