LenB(W1) / 2 = 0

Option Explicit
 
Sub Main()
    Debug.Print kCompare("rana", "")
    Debug.Print kCompare("hola", "holas")
    Debug.Print kCompare("bienvenido", "bienvenida")
    Debug.Print kCompare("Ejemplo", "eJempLIficar")
    Debug.Print kCompare("igual", "igual")
    Debug.Print kCompare("PALABRA", "palabra")
End Sub
 
Public Static Function kCompare(ByRef s1 As String, ByRef s2 As String) As Long
    Dim b()     As Long
    If (LenB(s1) <> 0) And (LenB(s2) <> 0) Then
        If (Not Not b) = False Then
            ReDim b(-1 To 1)
            b(-1) = 1
            b(1) = 2
            b(0) = 3
        End If
        kCompare = b(StrComp(s1, s2, vbTextCompare))
    End If
End Function

Option Explicit
 
Private Sub Form_Load()
 
    Debug.Print CheckWord("elfo", "elefante")
    Debug.Print CheckWord("ave", "zorro")
    Debug.Print CheckWord("hola", "")
    Debug.Print CheckWord("zero", "zerocool")
    Debug.Print CheckWord("feo", "    ")
    Debug.Print CheckWord("frog", "frog")
    Debug.Print CheckWord("faso", "fasa")
    Debug.Print CheckWord("JOJO", "jojo")
 
 
End Sub
 
Function CheckWord(sFirst As String, sSecond As String) As Long
    Dim i       As Integer
    Dim max     As Integer
 
    sFirst = LCase$(Trim$(sFirst))
    sSecond = LCase$(Trim$(sSecond))
 
' Verificar error
    If sFirst = "" Or sSecond = "" Then
        CheckWord = 0: Exit Function
    End If
 
' Establecer valor maximo del bucle
    If Len(sFirst) < Len(sSecond) Then
        max = Len(sFirst)
    Else
        max = Len(sSecond)
    End If
 
'Bucle
For i = 1 To max
 
    If (Left(sFirst, i) < Left(sSecond, i)) Then
        CheckWord = 1
        Exit Function
 
    ElseIf (Left(sFirst, i) > Left(sSecond, i)) Then
        CheckWord = 2
        Exit Function
 
' Si por ahora es igual..
    ElseIf (Left(sFirst, i) = Left(sSecond, i)) Then
 
        If i = max Then ' Si ya termina el bucle comprobamos..
 
            If Len(sFirst) > Len(sSecond) Then
                CheckWord = 2
                Exit Function
            End If
 
            If Len(sFirst) < Len(sSecond) Then
                CheckWord = 1
                Exit Function
            End If
 
' Por descarte..
 
            CheckWord = 3
            Exit Function
 
        End If
    End If
 
Next i
 
End Function
 

 2 
 1 
 0 
 1 
 1 
 3 
 2 
 3