iOS Question Check if my IOS application is updated

-(BOOL) needsUpdate
{
    NSDictionary* infoDictionary = [[NSBundle mainBundle] infoDictionary];
    NSString* appID = infoDictionary[@"CFBundleIdentifier"];
    NSURL* url = [NSURL URLWithString:[NSString stringWithFormat:@"http://itunes.apple.com/lookup?bundleId=%@", appID]];
    NSData* data = [NSData dataWithContentsOfURL:url];
    NSDictionary* lookup = [NSJSONSerialization JSONObjectWithData:data options:0 error:nil];

   if ([lookup[@"resultCount"] integerValue] == 1)
   {
       NSString* appStoreVersion = lookup[@"results"][0][@"version"];
       NSString* currentVersion = infoDictionary[@"CFBundleShortVersionString"];
       if (![appStoreVersion isEqualToString:currentVersion])
       {
           NSLog(@"Need to update [%@ != %@]", appStoreVersion, currentVersion);
           return YES;
       }
    }
    return NO;
}

Sub Button1_Click
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download("http://itunes.apple.com/lookup?id=6478831936")
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Dim parser As JSONParser
        parser.Initialize(j.GetString)
        Dim jRoot As Map = parser.NextObject
        
        Dim results As List = jRoot.Get("results")
        For Each colresults As Map In results
            
            Wait For (GetImage(colresults.Get("artworkUrl100"))) complete (Logo As B4XBitmap)
            xiv_AppLogo.Bitmap = Logo
            
            xlbl_AppName.Text = colresults.Get("trackName") & " V" & colresults.Get("version")
            xlbl_AppDescription.Text = colresults.Get("description")
                
        Next
        
    End If
    j.Release
End Sub

Private Sub GetImage(Url As String) As ResumableSub
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(Url)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        Return j.GetBitmap.As(B4XBitmap)
    End If
    j.Release
    Return Null
End Sub