olá pessoal estou fazendo uma planilha rapida de caixa e gostaria de uma ajuda de vcs.

quando a macro termina de registrar o textbox "Valor" esta na planilha como texto e n da pra fazer somatorio

tenho essas informações no meu botão de registro

Private Sub CommandButton1_Click()
Dim ultimalinha As Object

Set ultimalinha = Plan2.Range("END").End(xlUp)
ultimalinha.Offset(1, 0).Value = TextBox1.Text
ultimalinha.Offset(1, 1).Value = TextBox2.Text
ultimalinha.Offset(1, 2).Value = TextBox3.Text

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

TextBox1.SetFocus

End Sub

Private Sub CommandButton2_Click()
End

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limita a Qde de caracteres
TextBox1.MaxLength = 10

'para permitir que apenas números sejam digitados
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0
End If

End Sub

Private Sub TextBox1_Change()
'Formata : dd/mm/aaaa
If Len(TextBox1) = 2 Or Len(TextBox1) = 5 Then
TextBox1.Text = TextBox1.Text & "/"
SendKeys "{End}", True
End If

End Sub

Private Sub TextBox3_AfterUpdate()
TextBox3 = Format(TextBox3, "R$ #,###.00")
End Sub