Function Function1() As Variant
dim ret as Variant ' return value of this function
Function1=ret
End Function1
Function Function2() As Variant
dim ret as Variant ' return value of this function
Function2 = ret
End Function2
Private Sub inputName_AfterUpdate()
f1val = Function1
f2val = Function2
End Sub