Format Mata Uang di textbox

Private Sub txt_Koli_Exit(ByVal Cancel As MSForms.ReturnBoolean)

With Me.txt_Koli

    If IsNumeric(.Value) Then
        dblNum = .Value
        .Value = Format(dblNum, "#,##0.00")
    Else ': MsgBox "Silahkan masukkan nilai angka", , "Info"
        .Text = vbNullString
     
    End If

End With

End Sub