Format

Estou com dificuldade em extrair os 2 algarismos da esquerda do valor ccdympr=4468 para colocar em Rectangle2.Width =
Como posso fazer isso?

Valores do sensor selecionado
  dim ccdy as integer = val(c(3))
  dim ccdx as integer = val(c(4))
  dim um as integer = val(c(1))

// Tamanho do sensor em milimetros
  dim ccdyr as integer = um * ccdy
  dim ccdxr as integer = um * ccdx
  
//Converte os milimetros em pixeis
  dim ccdympr as integer = ccdyr / 3.77
  dim ccdxmpr as integer = ccdxr / 3.77
  
//???

  Rectangle2.Width = ccdympr
  Rectangle2.Height = ccdxmpr 

Se interessa apenas os dois primeiros dgitos, voc pode usar str(nmero) para converter para string, e left(string, 2) para pegar as duas primeiras posies. Mas como voc precisa de um inteiro para a propriedade width, envolva tudo com val(string). Mais ou menos assim:

Dim ccdympr as integer = Val( lef ( str(numero), 2))

Ol Adelar ainda devolve os 4 algarismos.

Desculpa Adelar, afinal resultou.
Obrigado.