Bom dia!!

Private Sub UserForm_Initialize() 
    Textbox1Text = Format(Range("I8"), "$#,##0.00") 
End Sub
Private Sub TextBox1_LostFocus() 
    With Me.TextBox1 
        If Not IsNumeric(.Value) Then 
            MsgBox "Somente numeros" 
            .Value = vbNullString 
        Else 
            .Text = Format(.Value, "$#,##0.00") 
        End If 
    End With 
End Sub 

Tente usar nossa base de dados.

Att

Por default um textbox "fornece" valores como string (texto), portanto é necessario converte-lo ao vlor deseja para salvar na planilha, pode experimentar assim:
ThisWorkbook.Worksheets("lançamentos").Cells(intLinha, 7) = CDbl(txtvalor)