How to register a SQLite UDF?

Is There a way to do this in B4A?

Dim sqLiteConnection As New SQLiteConnection("Data Source=D:\SQLite\test.db")
sqLiteConnection.Open
Dim function As New CelsToFahrFunction
sqLiteConnection.RegisterFunction([function])

Dim command As New SQLiteCommand("select CtoF(-40)", sqLiteConnection)
Dim result As Long = CLng(command.ExecuteScalar)

sqLiteConnection.UnRegisterFunction([function])
sqLiteConnection.Close

BR,

Fabio