Visual Basic - duda con procedimiento

como puedo hacer para meter dos datos en un procedimiento y que me cambien los originales por ejemplo=

Option Explicit
Dim numero1 As String
Dim numero2 As String
Dim nume1 As Integer
Dim nume2 As Integer
Dim deno1 As Integer
Dim deno2 As Integer
Dim valor1 As String
Dim valor2 As String

Private Sub simplifica(ByRef nume As Integer, ByRef deno As Integer)
While (nume Mod 2 = 0) Or (nume Mod 5 = 0)
If nume Mod 2 = 0 Then
nume = nume / 2
deno = deno / 2
Else: nume = nume / 5
deno = deno / 5
End If
Wend
End Sub
Private Sub Command1_Click()
Dim i As Integer
nume1 = 0
nume2 = 0
valor1 = ""
valor2 = ""
Randomize (10000)
numero1 = ((6 * Rnd) + 1)
Randomize (10000)
numero2 = ((6 * Rnd) + 1)
For i = 1 To 4
If i <> 2 Then
nume1 = (nume1 * 10)
nume1 = nume1 + (Mid(numero1, i, 1))
nume2 = (nume2 * 10)
nume2 = nume2 + (Mid(numero2, i, 1))
End If
Next
deno1 = 100
deno2 = 100
simplifica(nume1,deno1)
simplifica(nume2,deno2)
MsgBox (nume1 & " / " & deno1 & " " & nume2 & " / " & deno2)
End Sub

ocupo que numero1,numero2,deno1 y deno2 cambien al realizar el precedimiento....

que estoy haciendo mal??? no entiendo......!!!

ayuda urgente.... gracias...

Lo probé y cambié estas líneas:

simplifica(nume1, deno1)
simplifica(nume2, deno2)

por estas:

simplifica nume1, deno1
simplifica nume2, deno2

Y me funciona bien.

ya te respondio Cecilia.
solo queria decir que eso es una tonteria para mi de parte de vb.
si quieres usar los parentesis usa Call antes.