Private Sub Form_Load()
Dim c1  As Class1
Const s1 As String = "¿hola como estás? , esto es sólo una prueba Miguel... y además : ¡funciona genial!  amo a las ranas!."
 
    Set c1 = New Class1
    Debug.Print c1.CorrectUCase(s1)
    Debug.Print uCaseCorrect7913(s1)
    Set c1 = Nothing
End sub

¿Hola como estás? , esto es sólo una prueba Miguel... y además : ¡funciona genial!  Amo a las ranas!.
¿Hola como estás? , esto es sólo una prueba Miguel... y además : ¡funciona genial!  Amo a las ranas!.A

uCaseCorrect7913 = Mid$(uCaseCorrect7913, 2, Len(uCaseCorrect7913) - 4)

'Compilado quitando comprobación de límites de arrays
 
Option Explicit
 
Private Sub Form_Load()
Dim t   As New CTiming
Dim c1  As Class1
Dim X   As Long
Dim s   As String
 
    Set c1 = New Class1
 
    AutoRedraw = True
 
    s = Text1.Text '// Mismo contenido que en el anterior test
 
    t.Reset
    For X = 1 To 1000
        uCaseCorrect7913 s
    Next
    Me.Print "uCaseCorrect7913", t.sElapsed
 
    DoEvents
 
    t.Reset
    For X = 1 To 1000
        c1.CorrectUCase s
    Next
    Me.Print "cFrogUCase.cls", t.sElapsed
 
    Set c1 = Nothing
End Sub

Private Function uCaseCorrector(txt As String) As String
    Dim Signos As String
    Dim Espacios() As Integer
    Dim a, b As Integer
    Dim tmp As String
    Dim tmp2 As String
 
    'Los signos a controlar, se puede incrementar
    Signos = ".;:¿?¡!"
 
    'Sacamos los espacios
    ReDim Espacios(1 To Len(txt))
 
    For a = 1 To Len(txt)
        b = b + 1
        If Mid(txt, a, 1) = " " Then
            Espacios(b) = b
            b = b - 1
        Else
            tmp = tmp + Mid(txt, a, 1)
        End If
    Next a
 
    b = 0
 
    'Corregimos el texto
    For b = 1 To Len(Signos)
        For a = 1 To Len(tmp)
            If Mid(tmp, a, 1) = Mid(Signos, b, 1) And a + 1 < Len(tmp) Then
                Mid(tmp, a + 1, 1) = UCase(Mid(tmp, a + 1, 1))
            End If
        Next a
    Next b
 
    'Colocamos los espacios
    For a = 1 To Len(txt)
        If Espacios(a) <> 0 Then
            tmp2 = tmp2 + " " + Mid(tmp, a, 1)
        Else
            tmp2 = tmp2 + Mid(tmp, a, 1)
        End If
    Next a
 
    'La Solucion
    uCaseCorrector = tmp2
End Function