VBA Cell Borders Partially Working?

I am having a hard time understanding why the following code (i am avoiding the select procedure on purpose) doesn't work:

Code:
Function APMS_Border(Namesheet As Variant, Mode As Variant, RowStart As Variant, ColStart As Variant, RowEnd As Variant, ColEnd As Variant, LeftBorder As Variant, TopBorder As Variant, RightBorder As Variant, BottomBorder As Variant, InterColor As Variant)
Dim BorderMatrix() As Variant

[Code]....

it only draws the left border of my range, am i missing something?