プログラムのバグが見つかったので、対処した。まずは訂正済みの部分を載せます。
'時間処理(3)-------------------------------------------
Dim JTIME As String
JTIME = "J"
Dim kakotime As String

Dim imajikan As String
Dim lenimajikan As Integer
lenimajikan = Len(Trim(TimeOfDay))
If lenimajikan = 7 Then
kakotime = "0" & TimeOfDay
imajikan = Mid(kakotime, 1, lenimajikan - 2) & JTIME
Else
kakotime = TimeOfDay
imajikan = Mid(kakotime, 1, lenimajikan - 3) & JTIME
End If
' imajikan = Mid(kakotime, 1, lenimajikan - 3) & JTIME
Debug.WriteLine(imajikan)
ndat = imajikan
addrtnDataToHamlog(3, ndat) 'TIMEをリターン

'コールサイン欄へリターンなしでフォーカス(0)------------
sendingDataToHamlog(0, "") 'リターンせずにCALL欄へフォーカス
内容)---------------------------------------------------------------------------------------
ハムログに送る時間データ TimeOfDay の加工中のバグで23時から24時に変わったときの文字長が異なる為以下のセンテンスだけでは対応できない。
imajikan=mid(kakotime,1,lenimajikan-2 ) & JTIME
よって7文字と8文字の場合それぞれの場合にそれぞれ処理をつけて対応としました。
今日は、ハムログからのデータ読み取りを少し確認してみたいと思います。内容は別途書きたいと思います。つづく