pasar valor textbox a funcion

[Pinta]

me surje un problema, tengo un textbox dentro del form1 y me hace falta pillar el valor en el modulo, pongo lo siguiente:


Public Function ParametrosEscala(ByVal Descripcion As String) As String

Dim Formulario1 As New Form1

Dim Paso As Double
Dim FondoD As Double
Dim FondoH As Double
Dim LongH As Double
Dim CantH As Double
Dim LongD As Double
Dim cantD As Double
Dim Ancho As Double
Dim alto As Double
Select Case Descripcion
Case Is = "ESC.M 605 E"
Paso = 600
FondoD = 94
FondoH = 46
Ancho = Val(Formulario1.TextBox1.Text)
Alto = Val(Formulario1.TextBox2.Text)
.....

Ancho y Alto me devuelve 0.0 cuando los textbox tienen un valor metido.
porque no pilla el valor del textbox del formulario??

un saludo,