LenB は宣言されていません

LenB関数は.NETでは使用できないため

下記関数を追加することで解決できる

--------------------------------------------------------------------------------------------
Public Function LenB(ByVal str As String) As Integer
    Return System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount(str)
End Function
--------------------------------------------------------------------------------------------