[سامي محمد]

المسألة بسيطة 

كود :

 Dim i As String = "452d86ef321"
        Dim M As Long
        M = System.Text.RegularExpressions.Regex.Replace(i, "\D", "")
        MsgBox(String.Format("{0:###,###}", M * 1000) & vbNewLine & String.Format("{0:###,###}", M / 1000) & vbNewLine & String.Format("{0:###,###}", M + 1000))