I need help returning multiple values from a function

Here is the code I am trying to make work. Please show the missing or correct lines of code.
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim rows, columns As Integer
rowsAndColumns(rows, columns)
MessageBox.Show(rows.ToString)
MessageBox.Show(columns.ToString)

End Sub

Private Function rowsAndColumns(ByVal rows, ByVal columns) As Integer

rows = 3
columns = 4

Return (rows)
Return (columns)

End Function

End Class