This is using VBScript, which can easily be translated to VB6
arrDateTime = Split("2023-07-06T14:34:21-04:00","T")
WScript.Echo arrDateTime(0)
WScript.Echo arrDateTime(1)
arrTime = Split(arrDateTime(1),"-")
WScript.Echo arrTime(0)
WScript.Echo FormatDateTime(arrTime(0), vbShortTime)...