Here I have three files on my desktop named Personal with extensions .htm,.rtf,.txt
When I call this subroutine it should openupoutlook and with signatures from file personal
But when I call it with richtext it ignores vbnewline character as strconv detects only string and it displays signature although but without a line I.e vbnewline please help if any modification to this code

sub outlookmail()
Dim olapp as outlook.application
Dim olemail as outlook.mailitem
Dim str() as byte

Set olapp =new outlook.application
Set olemail =olapp.mailitem

With olemail
      .bodyformat =olformatrichtext
      .display
      str() = strconv("dear someone" & vbnewline & getsigtext(olformatrichtext)
      .rtfbody=str()
End with
End sub

Function Getsigtext(sigtype as olbodyformat)
        dim str as string,dim sigpath as string,sigext as string,sigtext as string
Dim fso as scripting.filesystemobject
Dim ts as scripting.textstream

Sigpath = environ("userprofile") & "\Desktop\Personal" & sigext

Select case sigtype
Case   olformathtml
Sigext=".htm"
Case    olformatrichtext
Sigext=".rtf"
Case   olformatplain
Sigext=".txt"
End select
Set fso =new scripting.filesystemobject
Set ts =fso.opentextfile(sigpath)
Sigtext = ts.readall
Getsigtext = sigtext
End function