Default export igs, 3dm, stl

Hi everybody,
This code uses to default import igs, stl ,3dm
anyone can edit it to export code ??

-runscript
(Sub import

Dim strFolder1,strFilename1
Dim objFso,objStream,FileDate,FlieExist
Dim zs,zt,zn

strFolder1 = Rhino.ExeFolder
Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Dim strFolder,typed
Dim Filename,f,fc,strFilename

Typed=Rhino.GetString (“Type: 1, Iges ; 2, Stl ; 3, 3dm”,1)

If typed=1 Then
fc=Rhino.OpenFileNames(“Import”, “Igs Files (.igs)|.igs|3dm(.3dm)|.3dm|All Files (.)|.||”)
If Not IsArray(fc) Then Exit Sub
ElseIf typed=2 Then
fc=Rhino.OpenFileNames(“Import”, “Stl Files (.stl)|.stl|3dm(.3dm)|.3dm|All Files (.)|.||”)
ElseIf typed=3 Then
fc=Rhino.OpenFileNames(“Import”, “3dm Files (.3dm)|.3dm|3dm(.3dm)|.3dm|All Files (.)|.||”)

End If

For Each strFilename In fc

If Not IsNull(strFilename) Then

Rhino.Command “_-import " & “””" & strFilename & “”"",vbFalse
End If

filename=UCase(OBJfso.getbasename(strFilename))

Dim arrobjects,currcentlayer
Dim arrLayers, strLayer
Dim llayer
arrObjects = Rhino.SelectedObjects
currcentlayer=Rhino.CurrentLayer
arrLayers = Rhino.LayerNames

If IsArray(arrLayers) Then
For Each strLayer In arrLayers

If strlayer=Filename Then
filename=filename&"-2"
Else
filename=filename
End If

Rhino.AddLayer(Filename)
Rhino.Layercolor (Filename),RGB(127,255,191)
Rhino.ObjectLayer arrObjects ,Filename

If Rhino.IsLayerEmpty(strLayer)And strlayer<>currcentlayer Then

Rhino.DeleteLayer (strLayer)

End If

Next

Rhino.command"noecho sellast group pause"
Rhino.command"_SetView _World _Perspective _Zoom _Extents"

End If

Set arrObjects = Nothing

Rhino.UnselectAllObjects

Next

Set objFSO=Nothing

End Sub
import
)