Private Sub CommandButton1_Click()

    Dim 입력위치 As Range
    
    If Len(TextBox1.Value) = 0 Then Exit Sub

    Set 입력위치 = Cells(Rows.Count, "B").End(xlUp).Offset(1)
    
    With 입력위치
        .Value = Val(Replace(TextBox1.Value, ",", ""))
        .NumberFormat = "#,###"
    End With

End Sub