Private Function DikeyYazi(ByVal strInput As String) As String
Dim strReturn As String
Dim i As Integer

For i = 1 To Len(strInput)
strReturn = strReturn & Mid$(strInput, i, 1) & vbCrLf
Next i

If Len(strReturn) > 1 Then
strReturn = Mid$(strReturn, 1, Len(strReturn) - 1)
End If

VerticalString = strReturn

End Function

Private Sub FillGrid()
flexgrid1.TextMatrix(1, 0) = DikeyYazi("yazi yaz")
End Sub