#Region Includes
#EndRegion Includes
#NoTrayIcon
$sStringOld = "1234-1234-12345-1234"
$aStringSplit = StringSplit($sStringOld, "-")
Dim $sStringNew = ""
For $s = 1 To 2
$sStringNew &= $aStringSplit[$s] & "-"
Next
$sStringNew &= "000" & $aStringSplit[3] & "-4"
MsgBox(0, "", "$sStringOld = " & $sStringOld & @CRLF & "$sStringNew = " & $sStringNew)