tenho um formulario que al clicar no botão cadastrar tenho o seguinte codigo

Private Sub botao_Cadastrar_Click()
On Error GoTo ErroNoSistema
Dim Linha

Linha = Sheets("dados").Range("A" & Rows.Count).End(xlUp).Row
Linha = Linha + 1

Sheets("dados").Cells(Linha, 1).Value = Replace(txt_DataFormacaoProcesso.Value, " ", "")
Sheets("dados").Cells(Linha, 2).Value = Replace(Format(txt_DataFormacaoProcesso.Value, "yyyy"), " ", "")
Sheets("dados").Cells(Linha, 3).Value = UCase(Replace(Format(txt_DataFormacaoProcesso.Value, "MMMM"), " ", ""))
Sheets("dados").Cells(Linha, 4).Value = Replace(txt_Processo.Value, " ", "")
Sheets("dados").Cells(Linha, 5).Value = Remove_Acentos(txt_SetorDemandante.Value)
Sheets("dados").Cells(Linha, 6).Value = Remove_Acentos(txt_Servidor.Value)
Sheets("dados").Cells(Linha, 7).Value = Remove_Acentos(txt_CidadeDestino.Value)
Sheets("dados").Cells(Linha, 8).Value = Replace(txt_Ida.Value, " ", "")
Sheets("dados").Cells(Linha, 9).Value = Replace(txt_Volta.Value, " ", "")
Sheets("dados").Cells(Linha, 10).Value = Replace(txt_QuantidadeDiaria.Value, " ", "")
Sheets("dados").Cells(Linha, 11).Value = txt_ValorDiaria.Value

Sheets("dados").Cells(Linha, 12).Value = Format(Now(), "YYYY")
Sheets("dados").Cells(Linha, 13).Value = Format(Now(), "MMMM")
Sheets("dados").Cells(Linha, 14).Value = cbo_FonteDaVerba.Value
Sheets("dados").Cells(Linha, 15).Value = txt_ValorDaVerba.Value

ThisWorkbook.Save

MsgBox "Registro incluído no sistema com sucesso." & vbCrLf & vbCrLf & _
"Clique em OK para continuar.", vbInformation, "CONFIRMAÇÃO"
Unload Me
frmCadastro.Show
Call TextoParaNumerico

Exit Sub

ErroNoSistema:
MsgBox "O sistema encontrou um Erro de execução." & vbCrLf & "Contate o desenvolvedor do projeto." _
& vbCrLf & vbCrLf & "Clique em OK para encerrar a aplicação.", vbCritical, "ERROR"
Application.DisplayAlerts = True
Application.Quit
Resume Next
End Sub

sendo que na coluna 11 quando inclui um valor com numero depois da virgula ele dá esse erro de "numero armazenado como texto" se o numero for inteiro tipo 100 ele fica normal.

Alguem pode me ajudar Urgente.