AUTO COMPLETAR COM TEXTBOX ???

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
    Dim sText As String
    Dim xText As String
    With Text1
        If Not (KeyAscii = vbKeyBack Or _
                KeyAscii = vbKeyEscape Or _
                KeyAscii = vbKeyReturn) Then
            If .SelLength > 0 Then
                sText = Left$(.Text, .SelStart) & Chr$(KeyAscii)
            Else
                sText = .Text & Chr$(KeyAscii)
            End If
            xText = Completa(sText)
            If (Len(Trim$(xText)) = 0) Then
                .SelStart = Len(sText)
                .SelLength = Len(.Text) - .SelStart + 1
            Else
                .Text = xText
                .SelStart = Len(xText) + 1
            End If
            KeyAscii = 0
        End If
    End With
End Sub

Public Function Completa(procura As String) As String
    Dim m(10) As String
    m(0) = [Ô]koolsid[Ô]
    m(1) = [Ô]hack[Ô]
    m(2) = [Ô]vbfnewcomer[Ô]
    m(3) = [Ô]luca[Ô]
    m(4) = [Ô]let me in[Ô]
    m(5) = [Ô]blah blah[Ô]
    m(6) = [Ô]kool[Ô]
    m(7) = [Ô]hacker[Ô]
    m(8) = [Ô]ataba[Ô]
    m(9) = [Ô]Etc...[Ô]
    Dim ret As String
    Dim iPos As Long
    For iPos = 0 To UBound(m)
        If (LCase(Mid$(m(iPos), 1, Len(procura))) = LCase$(procura)) Then
            ret = m(iPos)
            Exit For
        End If
    Next
    Completa = ret
End Function