If I understand correctly you want to find the difference between UTC and the current time irrespective of any daylight savings?
If I am correct then the following will do what you want:
Dim tzi As TimeZoneInfo = TimeZoneInfo.Local
Dim offset As TimeSpan = tzi.BaseUtcOffset
Dim plus As String = If(offset.TotalMinutes >= 0, "+", "")
Dim newTimeZone As String = String.Format("{0}{1:00}:{2:00}", plus, offset.Hours, offset.Minutes)
Outputs +00:00
on my machine (my local time is UTC+1 but we are in DST currently)