try:

Code:
iTunes = TryCast(GetObject(, "ITunes.Application"), iTunesApp)
if iTunes is nothing then
    'no running app
    'use createobject here
end if