vba loop through cell edges for border

Basically, I want to loop through the edges in the Borders collection. is there any "for each" way to do this?

Private Function getCellBorder(ByVal vArg As Range) As String

  For Each Edge in Borders
    Debug.Print vArg.Borders(Edge).LineStyle
  Next Edge

End Function