Macro para guardar resultado de textbox con decimales

Revisa lo siguiente:

1. Que la configuración regional en el Panel de control, tengas la de tu país, es decir, que el separador de decimal sea . (punto)

2. En la configuración de excenl, en Opciones, Avanzadas, en Opciones de edición, tengas activa la casilla Usar separadores del sistema.

3. Prueba con esto:

TextBox3 = Val(TextBox1) / Val(TextBox2)

Y 4. Cuando lo pases a una celda:

range("A5") = val(textbox3)

o

range("A5") = CDbl(textbox3)

Prueba y me comentas

Realice lo que indicas pero en el textbox3 el resultado la pone con la coma decimal y me lo guarda como si fuera formato de texto no habrá otra forma de resolver este problema.

Tiene que ver con tu configuración.

Prueba así:

TextBox3 = Replace(TextBox3, ",", ".")

Use esta otra opción en la que me da el resultado con punto.

Private Sub CommandButton1_Click()On Error GoTo ErrorDim Dividir As DoubleDividir = Val(TextBox1.Text) / Val(TextBox2.Text)TextBox3.Text = Format(Dividir)Exit SubError:TextBox3.Text = 0End Sub

No se si esta solución es la correcta. 

Adelante, lo importante es que tengas el resultado que necesitas.

Recuerda, que cuando lo pases del textbo3 a la celda y te lo considere como número y no como texto, pon la función val:

range("A5") = val(textbox3)