请求老师帮忙：
需要延时循环给串口发送16进制字符串，先发送1A A9 8C 22 D5 1B 6A 55 3F 2D 0D 2A 延时800MS再发送1F 29 88 3D 6A 22 2B 1C 3E 延时800MS后再发送1A A9 8C 22 D5 1B 6A 55 3F 2D 0D 2A一直循环。
Private Sub Timer1_Timer()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
If MSComm1.PortOpen = False Then
MsgBox "选取的COM端口无效或被占用，请关闭软件重选！"
End If
 Dim Data(11) As Byte
 Data(0) = &H1A
 Data(1) = &HA9
 Data(2) = &H8C
Data(3) = &H22
 Data(4) = &D5
 Data(5) = &H1B
Data(6) = &H6A
 Data(7) = &H55
 Data(8) = &H3F
Data(9) = &H2D
 Data(10) = &H0D
 Data(11) = &H2A
MSComm1.Output = Data
End Sub
interval  设置小于1000就无效了，这2段字符循环发送要怎么实现？谢谢老师！

感谢各位热心的老师，我之前没有描述清楚，我实际是要模拟延时循环发送以下字符串，他们的间隔时间812、889、827、973、843、889、827、904，我们取个中间值循环发送这2组16进制字符。烦请帮看看怎么写代码？谢谢！

【2022-07-15 20:49:10:143】3E 5A 6F 05 63 35 94 BC 2D BA F5 EF C3 B3 7C 54 95 96 66 C5 07 98 C5 80 71 C1 B9 5E 7C 84 02 CB 46 60 27 9E 81 55 F0        
【2022-07-15 20:49:10:955】3E 6A 75 7E 08 1E FB 78 12 15 DE        
【2022-07-15 20:49:11:844】3E 5A 6F 05 63 35 94 BC 2D BA F5 EF C3 B3 7C 54 95 96 66 C5 07 98 C5 80 71 C1 B9 5E 7C 84 02 CB 46 60 27 9E 81 55 F0        
【2022-07-15 20:49:12:671】3E 6A 75 7E 08 1E FB 78 12 15 DE        
【2022-07-15 20:49:13:544】3E 5A 6F 05 63 35 94 BC 2D BA F5 EF C3 B3 7C 54 95 96 66 C5 07 98 C5 80 71 C1 B9 5E 7C 84 02 CB 46 60 27 9E 81 55 F0        
【2022-07-15 20:49:14:387】3E 6A 75 7E 08 1E FB 78 12 15 DE        
【2022-07-15 20:49:15:276】3E 5A 6F 05 63 35 94 BC 2D BA F5 EF C3 B3 7C 54 95 96 66 C5 07 98 C5 80 71 C1 B9 5E 7C 84 02 CB 46 60 27 9E 81 55 F0        
【2022-07-15 20:49:16:103】3E 6A 75 7E 08 1E FB 78 12 15 DE        
【2022-07-15 20:49:17:007】3E 5A 6F 05 63 35 94 BC 2D BA F5 EF C3 B3 7C 54 95 96 66 C5 07 98 C5 80 71 C1 B9 5E 7C 84 02 CB 46 60 27 9E 81 55 F0