Todos los algoritmos corren en "tiempo de ejecucion del programa"...

Hay muchos... RC4, XOR....

Un ejemplo de un simple XOR:

Private Sub Form_Load()
    Debug.Print XORIt(XORIt("EJEMPLO", &HFF), &HFF)
End Sub
 
Private Function XORIt(ByVal sData As String, ByVal bKey As Byte) As String
    Dim i           As Long
 
    XORIt = sData
 
    For i = 1 To Len(XORIt)
        Mid$(XORIt, i, 1) = Chr$(Asc(Mid$(XORIt, i, 1)) Xor bKey)
    Next i
End Function

Otro ejemplo interesante, que utiliza un NOT para cifrar

Private Sub Form_Load()
    Debug.Print NotIt(NotIt("EJEMPLO"))
End Sub
 
Private Function NotIt(ByVal sData As String) As String
    Dim i           As Long
 
    NotIt = sData
 
    For i = 1 To Len(NotIt)
        Mid$(NotIt, i, 1) = Chr$(Not CByte(Asc(Mid$(NotIt, i, 1))))
    Next i
End Function

Si lo que quieres es cifrar las cadenas de un codigo en VB mirate esto

Si, por lo visto se generan a veces cadenas con caracteres especiales que se cargan tu code , para la v3 ya estara solucionado... ademas de otras encriptaciones/ofuscaciones de code

Mientras tanto intenta reencriptando de nuevo hasta que salgan las cadenas correctas... sino elige otras de las encriptaciones... la mejor sin duda ROTx...