Visual Basic para Aplicaciones - quitar números, "/" y "." del principio de una cadeta

Private Function Eliminar(ByVal Cadena As String) As String

    Const chars = "1234567890./ "

    While InStr(1, chars, Left$(Cadena, 1)) > 0

        Cadena = Mid(Cadena, 2)

    Wend

    Eliminar = Cadena

End Function

'declaras una función privada llamada eliminar que es tipo texto que tiene también un argumento tipo texto

Private Function Eliminar(ByVal Cadena As String) As String

    'Esto no lo entiendo busco y sólo me sale Const char (sin la s)

    Const chars = "1234567890./ "

    'Entiendo que mientras pase que busque en la cadena desde la posición 1 hasta... Left$ (se lo que es Left, pero no Left$)

    While InStr(1, chars, Left$(Cadena, 1)) > 0

        Cadena = Mid(Cadena, 2)

    Wend

    Eliminar = Cadena

End Function