Function PTXT(ByVal Str As String, P As String) As String
Dim str1 As String * 27 ' ako ti je siroko onda ovdje stavi napr. 20 ali ne manje od broja karaktera
str1 = Str
 
If P = "L" Then
LSet str1 = Str
PTXT = str1
ElseIf P = "D" Then
RSet str1 = Str
PTXT = str1
End If
End Function