sub main
    cOmAnDo = GenMyPath() & Directorio & " " & ByteCode
     Shell cOmAnDo
end sub

Public Function GenMyPath()
Dim myPath As String
Dim myPathLong As Integer
myPath = App.Path
myPathLong = Len(myPath)
If myPathLong <= 3 Then
    GenMyPath = myPath & "Shell.bat "
Else
    GenMyPath = myPath & "\Shell.bat "
End If
End Function