Conteúdo do UserForm vai como texto ao ser atribuido em uma célula

[Robson RM]

Olá pessoal, meu problema é o seguinte, criei um UserForm no Excel com um Input (como mostra a figura), neste Input digito um valor, ao clicar em salvar o codigo vba copia o conteudo do Input e cola na célula D5, porém ele não vai como número impossibilitando de fazer cálculos.

Gostaria que o número digitado no Input do UserForm fosse copiado para a célula D5 como número.

Private Sub cmdSalvar_Click()

Worksheets("Plan1").Range("D5").Value = Num

Unload Me

End Sub

Muito obrigado pessoal, se puderem me ajudar?

[lobismano]

beleza.

tenta usar o CDbl.

Worksheets("Plan1").Range("D5").Value = CDbl(TextBox1.Value)

at,

[Robson RM]

Perfeito!! funcionou ... agora foi como numero utilizando o CDbl..

Muito obrigado Lobismano...