TextBox em UserForm para valor monetário em planilha

[FabricioVianaCas]

Prezados e prezadas, boa tarde!

 

Tenho um Userform, com diversos campos. Um deles é para inserir informações de valores. Já está parametrizado da seguinte forma:

 

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Number = TextBox4.Value
    Me.TextBox4.Value = Format((TextBox4.Value), "currency")
End Sub

 

No entanto, ao digitar as informações, os dados vão para a planilha certinho, MAS O VALOR FICA COMO TEXTO e ocorre aquela famosa inspeção VALOR INSERIDO COMO TEXTO.

 

O comando para registro dos dados na planilha está assim descrito:

 

    ActiveCell.Offset(0, 5).Value = TextBox4.Value

 

Será que alguém pode me ajudar a solucionar esse problema?

 

Obrigado pela atenção!

[Basole]

tente essa macro:

 

Sub TextValue()

With Worksheets("nome da Sua Planilha").Range("A1:P40") 'altere suas celulas
        .Value = .Value
        End With
End Sub

[FabricioVianaCas]

Basole, continuou o mesmo problema.

 

Obrigado pela sugestão!

[Basole]

FabricioVianaCas,

 

'Altere no seu codigo esta linha:
'ActiveCell.Offset(0, 5).Value = TextBox4.Value
'por esta:
ActiveCell.Offset(0, 5).Value = CDec(TextBox4.Value)