Combining Two VBA Together

I have two vba the first one records the date & time of a cell change in column a and places this in column b

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Target.Offset(0, 1) = Date & " " & Time
End If
End Sub

The second one is a function to get the User logged in to windows.

Function UNameWindows() As String
UNameWindows = Environ("USERNAME")
End Function

What I really could do with is a way of incorporating the user name in the first function so it records date, time and user?