Private Instancias As Long

Private Sub Form_Load()
  Instancias = Val(Command)
  Instancias = Instancias + 1
  If Instancias < 2 Then
   Shell (App.Path & "\" & App.EXEName & " " & Instancias)
  End If
End Sub

Dim Hora, Intervalo as Date

Private Sub Form_Load()
  Hora = Timevalue("2:59:59")
  Intervalo = Timevalue("00:00:01")
End sub

Private Sub Timer1_Timer()
  Hora = Hora - Intervalo
  Label1 = Format(Hora, "HH:mm:ss")
End Sub

salida =  Format (numero, "#.00")

Dim Cadena, Num() As String
Dim i As Long
  Cadena = "010511"
  ReDim Num(Len(Cadena) / 2)  'Redimensiono el array con la        cantidad de elementos que voy a guardar
  For i = 1 To Len(Cadena) Step 2
    Num((i - 1) / 2) = Mid(Cadena, i, 2)
  Next i

For i=1 to len(cadena) step 2
  num = mid(cadena, i,2)
Next i