Как в MSHFLEXGrid-e писать сверху вниз? - VB

private function VText(S as string) as string
  for i = 1 to len(s)
    VText = Vtext & mid$(s,i,1) & vbcrlf
  next i
end function
 
private sub Form_Load()
  MSFlexGrid1.TextMatrix(0,0)=VText("Вот тебе твой текст")
end sub