Dovresti provare con

Function MyFunction() As String
MyFunction = "OK"
End Function

perche' altrimenti VB ritorna un Variant che non e' lo stesso di una stringa ...