Here it is:
Dim subject As String = "http://www.sat.dundee.ac.uk/xrit/057.0E/MET/2012/12/30/600/2012_12_30_600_MET7-_1_S2_grid.jpeg"
Dim find As String = "\d{4}_\\d{2}_\d{2}"
Dim replace As String = String.Format("{0:yyyy_MM_dd}", DateTime.Now)
Dim result As String = Regex.Replace(subject, find, replace)
But I have the feeling that you want something else you just don't know how to formulate it...