Visual Basic - Como pasar variables

Si tengo la siguiente función en el código de un formulario:

Function RoundD(Valor#, Optional num_dec) As Double
If IsMissing(num_dec) Then
numdecimals% = 0
Else
numdecimals% = num_dec
End If
If Valor# < 0 Then
valor2# = -Valor# * 10 ^ numdecimals%
RoundD = -Int(valor2# + 0.5) / 10 ^ numdecimals%
Else
valor2# = Valor# * 10 ^ numdecimals%
RoundD = Int(valor2# + 0.5) / 10 ^ numdecimals%
End If
End Function

Como le paso la variable valor a la función si esta esta en un text1.text??

cuando pasas algun valor a una funcion o sub es simple solo tienes que llamarla

Function RoundD(Valor#, Optional num_dec) As Double
entonces seria

RoundD(Text1.Text, numero que pongas) As Double

maCo