نقل قول نوشته شده توسط hoseyntaghizadeh مشاهده تاپیک
سلام چه طور میشه توی textbox بین اعداد را با خط فاصله جدا کرد


    Dim n As Long, s As String

    n = 1234567

    s = Replace(Format(n, "#,###"), Mid(Format(1000, "#,###"), 2, 1), "-")

    MsgBox s