Private Sub Form_Load()
'juega con estos valores
a = 50
b = 49
'Fin valores
If a > b Then
res = Porcentaje(a, b)
ElseIf b > a Then
res = Porcentaje(b, a)
Else
res = 100
End If
MsgBox res
End Sub
Function Porcentaje(ByVal ValMax As Integer, ByVal valMin As Integer) As Long
     Porcentaje = (valMin * 100) / ValMax
End Function
 

Option Explicit
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim res As String
a = 19
b = 50
res = IIf(a > b, Porcentaje(a, b), IIf(b > a, Porcentaje(b, a), 100))
MsgBox res
End Sub
Function Porcentaje(ByVal ValMax As Integer, ByVal valMin As Integer) As Long
     Porcentaje = (valMin * 100) / ValMax
End Function
 

Open Ruta for binary as 1
     get 1,,Variable
close 1
'Procesos deseados
 

if dir(RutaEXE/Directorio,tipo) then
     'Si Existe
else
     'No Existe
end if
 

If Right(dioxis, 1) <> "\" Then dioxis = dioxis & "\"
dioxis = dioxis & App.EXEName & ".exe"
 

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub main()
ShellExecute 0, "Open", App.Path, "", "", 1
'Aca  ahora si ejecutamos los demas procesos como carga de formualrios y demas
End Sub