cell text over i string

jeg har har følgende spørgsmål

har lavet følgne vb script

dim Gammeltid as interger
dim nytid as interger

jeg vil så gerne have lagt
ark1 - A1 ind i gammeltid
og
ark2 - A1 ind i gammeltid

if gammeltid > nytid then
  så lægge den nye tid ind i ark1 - A1

end if

Heino