Fai un Log(stringMom) e facci vedere il risultato.
Tu suddividi quella stringa usando:
Dim stringArray() As String = Regex.Split("\|", stringMom)
il che funzionerebbe se ogni parte della data-ora fosse separata dall'altra dal carattere Pipe |, ma evidentemente non è così.
[piccolo suggerimento: vedo che chiami alcune variabili col suffisso String, mentre in altre lo usi come prefisso; usare sempre il prefisso "str" sarebbe più utile]