Public Function DrawDot(ByVal x1 As Double, ByVal y1 As Double, Optional ByVal r As Double = 1) As Object
Dim oWord As Word.Application
Dim TempX As Double
Dim TempY As Double
Dim TempR As Double
TempX = Ox + (x1 * 10)
TempY = Oy - (y1 * 10)
TempR = r * 10
...