Formatting angles with DMS symbols

[ColeRussell1]

I'm trying to label delta angles with proper formatting. They are listed in the attribute table as 90-0-0, where I would like them formatted as 90°0'0" for labelling. 

This is the expression I'm using to label lines:

Function FindLabel ( [Radius], [Direction], [Distance], [Delta], [ArcLength] )
If isnull([Radius]) then
FindLabel = [Direction] + " " + [Distance] + "ft"
Else
FindLabel = "Δ=" + [Delta] + vbnewline + "R=" + [Radius] + "'" + vbnewline + "L=" + [ArcLength] + "'"
end if
End Function

Is it possible to reformat the field using an expression? or create a new field and use an expression to change the formatting from "x-x-x" to "x°x'x""? my programming skills are subpar to so the least, so any insight would be much appreciated!