Bueno, os traigo esta simple función para reemplazar a IIf().
IIf(), es una función muy cómoda de vb, pero no es recomendable usarla en bucles o si se necesita especial agilidad porque es leeeenta.
La mía funciona exactamente igual, con la ventaja de que los argumentos en caso de ser Falso o Verdadero son opcionales.

Option Explicit
 
Public Static Function IIfEx(ByVal bolExpresion As Boolean, _
                    Optional ByRef varTruePart As Variant, _
                    Optional ByRef varFalsePart As Variant) As Variant
    If bolExpresion Then
        IIfEx = varTruePart
    Else
        IIfEx = varFalsePart
    End If
End Function

---

Un pequeño ejemplo de velocidad usando CTiming.cls :

Option Explicit
 
Private Sub Form_Load()
Dim t               As New CTiming
Dim x               As Long
Dim ret             As Variant
Const s             As String = "holaa"
Const sCorrect      As String = s
Const sIncorrect    As String = sCorrect & "a"
Const lngLoops      As Long = 100000
 
    If App.LogMode = 0 Then
        MsgBox "Compile it stupid!", vbCritical
        End
    End If
 
    Me.AutoRedraw = True
 
    Me.Print "True part"
    Me.Print
 
    t.Reset
    For x = 1 To lngLoops
        ret = IIf((s = sCorrect), 123, 1233)
    Next
    Me.Print "IIf", t.sElapsed
 
    t.Reset
    For x = 1 To lngLoops
        ret = IIfEx((s = sCorrect), 123, 1233)
    Next
    Me.Print "IIfEx", t.sElapsed
 
    Me.Print String$(20, "-")
    Me.Print "False part"
    Me.Print
 
    t.Reset
    For x = 1 To lngLoops
        ret = IIf((s = sIncorrect), 123, 1233)
    Next
    Me.Print "IIf", t.sElapsed
 
    t.Reset
    For x = 1 To lngLoops
        ret = IIfEx((s = sIncorrect), 123, 1233)
    Next
    Me.Print "IIfEx", t.sElapsed
End Sub

Resultado (IIfEx = IIIf ; que le cambié el nombre ) :




Nota: Aún así si se necesita especial velocidad mejor usar If.  

DoEvents!

Gracias, unicamente quería demostrar que para mejorar la velocidad de vb no hace falta romperse la cabeza.

' Hago un poco de trampa usando otra función de vb, solo es una adaptación para usar MidB() como Mid()... :P
Public Static Function fMid(ByRef sText As String, ByVal lngStart As Long, Optional ByVal lngLength As Long) As String
    fMid = MidB$(sText, 1 + lngStart + lngStart, lngLength + lngLength)
End Function

Option Explicit
 
Private Sub Form_Load()
Dim t               As New CTiming
Dim x               As Long
Dim ret             As String
Dim s               As String
Const lngLoops      As Long = 100000
Const lngStart      As Long = 34566
Const lngLen        As Long = 10000
 
    If App.LogMode = 0 Then
        MsgBox "Compile it stupid!", vbCritical
        End
    End If
 
    Show
    AutoRedraw = True
 
    For x = 0 To 100000
        s = s & ChrW$(Rnd * 255)
    Next
 
    Cls
 
    t.Reset
    For x = 1 To lngLoops
        ret = fMid(s, lngStart, lngLen)
    Next
    Print "fMid", t.sElapsed
 
    ret = vbNullString
 
    t.Reset
    For x = 1 To lngLoops
        ret = Mid$(s, lngStart, lngLen)
    Next
    Print "Mid", t.sElapsed
End Sub

Resultado:


DoEvents!