Windows - Algun ejemplo de GetSystemDate

Hola
Alguien puede ayudarme posteando algún ejemplo de esta sentencia,
o donde puedo encontrar alguna documentación.-

Desde ya muchas gracias.-
Saludos

Dim T As SYSTEMTIME
Dim Semana As String
Dim Fecha As String
GetSystemTime T
Select Case T.wDayOfWeek
Case 1
Semana = "Lunes "
Case 2
Semana = "Martes "
Case 3
Semana = "Miércoles "
Case 4
Semana = "Jueves "
Case 5
Semana = "Viernes "
Case 6
Semana = "Sábado "
Case 7
Semana = "Domingo"
End Select
Fecha = Semana & _
Format$(T.wDay, "00") & "" & _
Format$(T.wMonth, "00") & "" & _
Format$(T.wYear, "0000") & " " & _
Format$(T.wHour, "00") & ":" & _
Format$(T.wMinute, "00") & ":" & _
Format$(T.wSecond, "00") & "," & _
Format$(T.wMilliseconds, "000")
MsgBox Fecha