我想发送一串字符（以16进制发送），其中包含“，”号，我的打算是遇到“，”时，串口就不发送并延时1S，程序不知怎么写，望各位朋友帮帮忙。
部分程序如下：
Private Sub send_Click()
 Dim strText As String
 Dim bytByte() As Byte
     strText = TxtDot.Text
       longth = strHexToByteArray(strText, bytByte())
        If longth > 0 Then                             '我想在此添加那段程序，该怎么写？望指点，谢谢！！！
           MSComm1.Output = bytByte
        End If
End Sub

'**********************************
'字符表示的十六进制数转化为相应的整数
'错误则返回  -1
'**********************************

Function ConvertHexChr(str As String) As Integer
   
    Dim test As Integer
   
    test = Asc(str)
    If test >= Asc("0") And test <= Asc("9") Then
        test = test - Asc("0")
    ElseIf test >= Asc("a") And test <= Asc("f") Then
        test = test - Asc("a") + 10
    ElseIf test >= Asc("A") And test <= Asc("F") Then
        test = test - Asc("A") + 10
    Else
        test = -1                                       '出错信息
    End If
    ConvertHexChr = test
   
End Function

'**********************************
'字符串表示的十六进制数据转化为相应的字节串
'返回转化后的字节数
'**********************************

Function strHexToByteArray(strText As String, bytByte() As Byte) As Integer
   
    Dim HexData As Integer          '十六进制(二进制)数据字节对应值
    Dim hstr As String * 1          '高位字符
    Dim lstr As String * 1          '低位字符
    Dim HighHexData As Integer      '高位数值
    Dim LowHexData As Integer       '低位数值
    Dim HexDataLen As Integer       '字节数
    Dim StringLen As Integer        '字符串长度
    Dim Account As Integer          '计数
        
    strTestn = ""                   '设初值
    HexDataLen = 0
    strHexToByteArray = 0
   
    StringLen = Len(strText)
    Account = StringLen \ 2
    ReDim bytByte(Account)
   
    For n = 1 To StringLen
   
        Do                                              '清除空格
            hstr = Mid(strText, n, 1)
            n = n + 1
            If (n - 1) > StringLen Then
                HexDataLen = HexDataLen - 1
               
                Exit For
            End If
        Loop While hstr = " "
        
        Do
            lstr = Mid(strText, n, 1)
            n = n + 1
            If (n - 1) > StringLen Then
                HexDataLen = HexDataLen - 1
               
                Exit For
            End If
        Loop While lstr = " "
        n = n - 1
        If n > StringLen Then
            HexDataLen = HexDataLen - 1
            Exit For
        End If
        
        HighHexData = ConvertHexChr(hstr)
        LowHexData = ConvertHexChr(lstr)
        
        If HighHexData = -1 Or LowHexData = -1 Then     '遇到非法字符中断转化
            HexDataLen = HexDataLen - 1
            
            Exit For
        Else
            
            HexData = HighHexData * 16 + LowHexData
            bytByte(HexDataLen) = HexData
            HexDataLen = HexDataLen + 1
            
            
        End If
                        
    Next n
   
    If HexDataLen > 0 Then                              '修正最后一次循环改变的数值
        HexDataLen = HexDataLen - 1
        ReDim Preserve bytByte(HexDataLen)
    Else
        ReDim Preserve bytByte(0)
    End If
   
   
    If StringLen = 0 Then                               '如果是空串,则不会进入循环体
        strHexToByteArray = 0
    Else
        strHexToByteArray = HexDataLen + 1
    End If
   
   
End Function

你可以用split函数,先把字符串按逗号分割成多个字符串,然后逐个字符串发送,每次发送间隔1s

split函数我不会用，能给个具体的例子吗？或者你用你的思想帮我该下我的程序

把","转换成"，"，也就是全角符号和半角符号的转换
strText=replace（strText",","，")
例如：
Dim bytByte() As Byte
     strText = TxtDot.Text
       longth = strHexToByteArray(replace（strText",","，"), bytByte())'这样你或许就不需要延时了吧
        If longth > 0 Then                             
           MSComm1.Output = bytByte
        End If
End Sub
至于延时函数，我在论坛有贴子，怎么用也说得很明白，你搜一下吧

谢谢你回复！但我的意思是遇到“,”时，我就是要延时一段时间，然后再发送后面的字符。你说的{把","转换成"，"，也就是全角符号和半角符号的转换}能达到这目的吗？等待你的回复！

Dim a() As String
a = Split("sdjfdsjf,897gd",",")
则可以得到a(0)="sdjfdsjf"，a(1)="897gd"。
然后加个timer每一秒发送一次就行了

谢谢楼上的回答！问题应该可以解决了，我去试试

学习中

看帖学习了，谢谢个位！