[VB6] Convertire valore textbox in decimale con il punto

[alex688]

Salve a tutti dovrei fare una macro che come prima cosa fa comparire la userform. Come si fà?
il codice della userform è

Public Sub CommandButton1_Click() 
Dim val1 As Long     
val1 = CDec(TextBox1.value)     
Unload Me     
ThisDocument.Macro2 (val1) End Sub

questo quello della macro a cui deve far riferimento la variabile val1

 Sub Macro2(val1 As Long)
    '
    model.Shapes(model.Shapes.Find(smFindTag, "object.5265")).Selected = True
    Dim currentModel As model
    Set currentModel = ActiveModel
    Set currentModel = currentModel.Submodels(currentModel.Submodels.Find(smFindTag, "object.5265")).model
    currentModel.Shapes(currentModel.Shapes.Find(smFindTag, "object.779")).Selected = True
    currentModel.Modules(currentModel.Modules.Find(smFindTag, "object.779")).Data("Value(1)") = "NORM(" & val1 & ")"
End Sub

[alex688]

L'iphone sta impazzendo ho sbagliato a postare potete cancellare il mess che io non lo posso fare. Grazie e scusate

[luky1964]

[MItaly]

Non è chiara né la domanda né cosa tu voglia cancellare... il secondo post? L'intera discussione? Altro ancora?