Multiple Assignment from Function?

[RhinoBull]

...or this if you need return value from function as well:

Option Explicit

Private Sub Command1_Click()
Dim var1 As String
Dim var2 As Single
Dim res As Single

    res = DoSomething(var1, var2, 9)
    
    Debug.Print var1
    Debug.Print var2
    Debug.Print res

End Sub

Private Function DoSomething(Result1 As String, Result2 As Single, someNumber As Integer) As Single
        Result1 = "hello"
        Result2 = Sqr(someNumber)
        DoSomething = someNumber ^ 2
End Function