換成民國年

  '換成民國年
            Dim YrMn = Left(strLSYrMn, 4) - 1911 & strLSYrMn.Substring(4, 2)

            If YrMn.Length = 4 Then
                YrMn = YrMn.PadLeft(YrMn.Length + 1, Char.Parse(" "))
            End If