Problemas sobre la suma al hacer una calculadora simple con VB

Primero, no puede definirlo con AHORA, es un nombre de función incorporado. Cámbielo a AHORA1.

Mi código es el siguiente:

Dim X As String

Dim pre As Double

Dim now1 As Double

'Este es el código para la suma

Subcomando privado17_Click (Indexar como entero)

pre = Val(Text1.Text)

Text1.Text = " "

X = " "