VB6格式化字符串问题

我的问题很简单。
如何将字符串（如

“445B986D2DD3B41852964ABA11408E82”

转换为

445B9-86D2D-D3B41-85296-4ABA1-1408E82

---

本应在格式码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码格式码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码码##（最后一件事无关紧要）

为什么不添加破折号：

s = Left(s, 5) + "-" + Mid(s, 6, 5) + "-" + Mid(s, 11, 5) + "-" + Mid(s, 16, 5) _  
               + "-" + Mid(s, 21, 5) + "-" + Right(s, Len(s) - 25)

可以使用Mid（）、Left（）、Right（）函数和连接运算符（&）。例如：

---

下面是一个使用

MOD

Dim OldStr As String
OldStr = "445B986D2DD3B41852964ABA11408E82"
Dim NewStr As String
For i = 1 To Len(OldStr)
    NewStr = NewStr & Mid(OldStr, i, 1)
    If i Mod 5 = 0 Then
        NewStr = NewStr & "-"
    End If
Next

并使用

步骤

For i = 1 To Len(st) Step 5
    ss = ss & Mid(st, i, 5) & "-"
Next

---

你可以使用一个带有该掩码的maskedinput文本框，但MaxLength是64，或者我可以发送一个由我制作的supertextbox，并做了很多改进

For i = 1 To Len(st) Step 5
    ss = ss & Mid(st, i, 5) & "-"
Next