return 2 or more variables from a function

I just can remember how to do the following.

I need to return 2 variables from a function so that I can use them within a
sub.
In this case 2 column numbers so that I can use them to find something.

Any help would be appreciated

regards
David

-----------
Sub Find_Columns
Dim Col1, col2 as integer

Col1 = YColumn(check)

End sub


Function YColumn(check As String)

Select Case check

Case "Vegetables"
Col1 = 2
Col2 =4

Case "Mellons"
Col1 =5
Col2 = 6

End Select

End function