Sub Calling & Returning Values

I have been able to get the following code to work (which simply returns the start of data on a sheet):


Sub FindDataStart( )

Dim lRow As Long
Dim lColumn As Integer

For lRow = 1 To Rows.Count
For lColumn = 1 To Columns.Count
If Trim( Cells(lRow, lColumn).Value) <> "" Then
Goto EXIST
Else
End If
Next lColumn
Next lRow

EXIST:

Exit Sub

End Sub

Now I want to build on what I have learned so far and from another Sub, I want to call the FindDataStart sub and have it return the row and column # (from where the data starts).

I started by making the following changes to the FindDataStart sub but got stuck

Changed :

Sub FindDataStart( )

To:

Sub FindDataStart( RowNumb As Long, ColNumb As Integer)

I also added the following line to the end of the FindDataStart sub


FindDataStart = (lRow, lColumn)