Sub ַʽ()
    'TEXT(value,format_text)
  ֵתΪָָʽʾı?
﷨:
TEXT(value,format_text)
Value    ΪֵΪֵĹʽ԰ֵĵԪá
Format_text    ΪԪʽԻС֡ѡϡࡱеıʽָʽ
˵:
Format_text ܰǺ (*)
ʾ:
=TEXT(3,"0000")&44  000344
=44&TEXT(3,"0000")  440003

'VBAд
 MsgBox "KH" & Application.WorksheetFunction.Text(1, "0000") & 8 'أ KH00018
MsgBox "KH" & Format(1, "0000") & 8  'أ KH00018


'VB6.0VBAд
MsgBox "KH" & Format(1, "0000") & 8  'أ KH00018

'VSTO д
 MsgBox ("KH" & ExAPP.WorksheetFunction.Text(1, "0000") & 8) 'أ KH00018
 MsgBox("KH" & Format(1, "0000") & 8)  'أ KH00018


End Sub

**********************************************************
VSTOάͼƬ

 Dim Ling_GS As String 'ʽ
        Ling_GS = ""

        Dim EWM_HS As Int16 'ά
        EWM_HS = ExAPP.ActiveSheet.cells(ExAPP.Rows.Count, L1).end(xlUp).row
        Dim HS As String = EWM_HS 'תΪַͨLengthõλ
        'MsgBox(HS.Length,, "λ")
        Select Case HS.Length
             'Select Case Me.NumericUpDown1.Value
            Case 1 : Ling_GS = "00"
            Case 2 : Ling_GS = "000"
            Case 3 : Ling_GS = "0000"
            Case 4 : Ling_GS = "00000"
            Case 5 : Ling_GS = "000000"
        End Select

 Dim filePath As String = ZM_Path & "EWM\" & "EWM_" & Format(i - 1, Ling_GS) & ".png" '