pegar o nome do dia da semana no vb.net

Function NomeDiaDaSemana(ByVal data As DateTime) As String

NomeDiaDaSemana = ""

Dim dia As Integer = data.DayOfWeek

If dia = 0 Then Return "Domingo"

If dia = 1 Then Return "Segunda - Feira"

If dia = 2 Then Return "Terça - Feira"

If dia = 3 Then Return "Quarta - Feira"

If dia = 4 Then Return "Quinta - Feira"

If dia = 5 Then Return "Sexta - Feira"

If dia = 6 Then Return "Sábado"

End Function