String.Insert導致無效的限定符錯誤？

Question

我想獲取用戶窗體上的文本框的值並將其分配給字符串變量，然後使用String類的Insert方法將連字符插入到該字符串變量中。我每次運行此代碼，我得到一個錯誤「無效的限定詞」與AcctUnitString突出。

Dim AcctUnitString As String 

AcctUnitString = AcctUnit.Text 
AcctUnitString = AcctUnitString.Insert(2, "-") 

Debug.Print (AcctUnitString) 

AcctUnit是用戶窗體上的文本字段的名稱。任何想法可能會導致這個錯誤，或更好的方式做我想做什麼？

用戶將在文本框中輸入一個13位數字代碼（例如9200030015001），我想格式化它：92-0003-001-5001。任何幫助非常感謝！

Answer 1

我不知道內置的Excel功能可以做你正在尋找的東西

Sub test() 

    Dim AcctUnitString As String 

    AcctUnitString = "9200030015001" 
    AcctUnitString = InsertString(AcctUnitString, "-", 2) 
    MsgBox AcctUnitString 
End Sub 

Private Function InsertString(OriginalString As String, StringToInsert As String, WhereToInsertIt As Integer) As String 
    Dim String1 As String, String2 As String 
    String1 = Mid(OriginalString, 1, WhereToInsertIt) 
    String2 = Mid(OriginalString, WhereToInsertIt + 1, Len(OriginalString)) 
    InsertString = String1 & StringToInsert & String2 
End Function 

http://www.vbforums.com/showthread.php?141943-Insert-string-within-another-string-at-specific-position

Answer 2

here從

字符串是沒有VBA對象，因此它們沒有方法如子串或刪除，如在VB.Net。